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Commodore-lnf 

Verschijnt 8 x per jaar 


Abonnement: 

Voor 8 nummers ƒ 47,50 of BF 
per jaar. Betaling op Giro 15854E 
SAC/COMMODORE-Info. 

Oude nummers kunt U alleen kri 
vooruitbetaling van ƒ 6,75 op de 
staande rekening. 

Ook telefonische opgave voi 
abonnement is mogelijk. Bel C 
06-02242222 (Teleservice). ell 
tot 20.30 uur (dus ook in het wei 
België; 115555. dagelijks tot 22. 
Deze telefoonnummers zijn alk 
doeld voor telefonische opga' 
NIEUWE abonnementen. 


ehouden 

169-3085 


Genlocker A8702 

De nieuwe Amiga Genlocker is uit! 


Nieuws 10,13 

Fresh 12 

Een software-pakket voor huisartsen, dat 
zowel de verrichtingen als de financiële af¬ 
handelen daarvan verzorgt. 

Software 15 

Er zijn mensen, die alleen al voor de soft¬ 
ware bespreking dit blad kopen.: Drie pa¬ 
gina’s met de nieuwste pakketten. 

Strip 18 

Bert Tier laat zien dat het in de jungle ook 
niet altijd koek en ei is. 

Basic Basic 16 19 

Jan Bodzinga’s vaste Basic-cursus, waar¬ 
door het werken met de Commodore-ma- 
chines veel meer mogelijkheden biedt. 

Goud van Oud 27 

We hebben hem een keer moeten missen, 
maar hier is Rob Goudriaan weer met ga¬ 
mes uit de oude doos. 

Desktop Video 55 

Ongekende mogelijkheden in beeldmani¬ 
pulatie wordt door UIco Schuurmans na¬ 
der bekeken en aan u uitgelegd. 

Minigraph (slot) 59 

Het slot van de minigraph-listing, 

Reset 62 

Een eenvoudig, maar handig commando 
om uw werkgeheugen schoon te krijgen. 

Redaktloneel 

Nu de beurzenstorm van dit najaar 
wat is geluwd en de rook Is opgetrok¬ 
ken, lijkt het weer even tijd voor 
andere zaken. Dat wil niet zeggen, 
dat er dit jaar geen nieuws meer te 
verwachten is, want in de VS zijn op 
dit moment een groot aantal beurzen 
aan de gang. 

In ons land maakt men zich intussen 
op voor de jaarlijkse HCC- dagen en 
aansluitend komen de feestdagen 
snel dichterbij. Maar voor het zover is 
een najaarsnummer, boordevol nieu¬ 
we programma’s en {software)-be- 
sprekingen. 

De trouwe lezers zal het zeker opval¬ 
len, dat de Listing-rubriek in een 
nieuw jasje is gestoken. Dank zij de 


Datakolom 64 

Luc Sala belicht het ontstaan van een ‘te- 
rminologie’-kultuur in computerland. 

HiFi-schakelingen 65 

Een artikel over moelijkheden, die de com¬ 
puter kan bieden bij het schakelen van 
audio-apparatuur. 

Demowereld 66 

Darius Heydrapour met het laatste nieuws 
uit de wereld van computerkrakers. 

Vragen 68 

Onze vaste rubriek met vragen van ge¬ 
bruikers op elk terrein. 

Miniatuurtjes 72 

Peter broekhuizen levert weer twee blad¬ 
zijden met alleraardigste mini-listings. 

Machinetaal 9 75 

Voor de echte programmeurs de negende 
aflevering van de cursus machinetaal. 

MS-DOS Ï9 

Het werken met en in MS-DOS op de Ami¬ 
ga kan de nodige moeilijkheden opleve¬ 
ren. Maar ook veel plezier! 

Print-out 33 

Listing-rubriek met:: 

:,''Slital.r' '34' 

Powerboat 36 

Tekstverfraaien 36 
Duo-bal 38 

Explosieven 40 

Files uitprinten 40 
Springbeest 45 

Vaste hand C-128 46 

MastermindC-128 47 
Mt-Base C-16 49 

Adresbestand C-16 51 


technische mogelijkheden op de re- 
daktie kunnen deze pagina’s nu 
rechtstreeks van de C-64 in onze ru¬ 
briek worden ingevoerd. Er zullen 
nog wat vormtechnische schoon¬ 
heidsfoutjes inzitten, maar die zullen 
ongetwijfeld de volgende keer verhol¬ 
pen zijn. Maar als het goed is zal de 
‘Missers"-rubriek niet meer nodig blij¬ 
ken te zijn. 

Voor de Amiga-bezitter zal ook uit dit 
nummer weer duidelijk worden welke 
tot voor kort ongekende mogelijkhe¬ 
den deze Commodore-machines bie¬ 
den. En wij kunnen u verzekeren, dat 
het eind van die ontwikkeling voor¬ 
alsnog niet in zicht is. 
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Met een genlock interface is het mogeiijk om grafische computerbeeiden en titeis met 
videopnamen te kombineren. Tot op heden waren genlockers voor de Amiga helaas 
schreeuwend duur of van slechte kwaliteit. Alldata brengt daar nu met haar nieuwe 
genlock interface verandering in. 

Amiga Genlock A8702 



Professionele kwaliteit 
ook voor de amateur? 


D e Amiga 500,1000 en 2000 staan in het middelpunt van de groeiende be¬ 
langstelling voor desktop video (DTV). De grafische prestaties en ani¬ 
maties van deze machines zijn beroemd. Alleen konden de amateur en vak¬ 
man met een krap budget daar niet veel mee. 


De randapparatuur voor het genere¬ 
ren van een kwalitatief goed PAL-sig- 
naal en het kombineren van computer 
graphics met videobeelden was ge¬ 
woon te duur. Aan geschikte genlock¬ 
ers kon men ook in het buitenland 
nauwelijks komen en goedkope ex¬ 
emplaren bleken dikwijls beneden de 
maat. Daarom komt het minder dan 
ƒ 1000,- kostende genlock interface 
van Alldata als geroepen. Een reden 
voor ons om deze genlocker eens na¬ 
der te bekijken. 

Beeldmixen 

Genlockers kombineren zoals gezegd 
computervideo- met bestaande of life 
opgenomen videobeelden. 

Men spreekt ook wel van beeldmixen. 
Bekend zijn de titelletters die over de 
videobeelden heenlopen. In vele tele¬ 
visieseries komen de letters gewoon 
als titelrol op de videobeelden. Een 
techniek die ook met sommige video¬ 
camera’s mogelijk is. 

Het gebruik van een computer als af- 
titelaar biedt veel meer mogelijkheden 
dan een gewone titelgenerator voor 
video. Niet alleen kan de videomaker 
kiezen uit meerdere fonts in vrijwel 


elke bruikbare grootte en kleur, ook 
kan men de titels laten scrollen, rote¬ 
ren om een X-, Y- of Z-as en van vorm 
laten veranderen. 

Behalve titels kunnen ook grafieken, 
geanimeerde poppetjes en met paint- 
pakketten ontworpen achtergronden 
met life/bestaande videobeelden ge- 
kombineerd worden. Een geliefde 
techniek bij reklamebureaus, interac¬ 
tief onderwijs en grappige films. 

Hoe werkt een Genlock? 

Een genlock kent doorgaans twee vi- 
deo-ingangen en een of meer video- 
uitgangen. Op de video-in worden 
twee verschillende videobronnen aan¬ 
gesloten. Bij de A8702 zijn dat de A- 
miga via de 23-polige RGBD-connec- 
tor en een composiet-videoingang 
voor een videocamera, videorecorder, 
beeldplaat, een andere computer, een 
satellietsignaal of een professionele 
"black and burst". De video timing-sig- 
nalen voor line, frame en colour burst 
van de Amiga en de externe video- 
bron worden door het interface ge- 
locked. Dat wil zeggen zodanig op 
elkaar afgestemd dat beide signalen 
dezelfde kleur op dezelfde tijd en 


plaats op het scherm (of naar de vi¬ 
deorecorder) geven. Men spreekt 
hierbij ook wel van het synchroniseren 
van twee videobronnen. Zijn de beide 
videosignalen eenmaal gelocked dan 
kan de electronica tussen het Amiga- 
en externe videosignaal switchen. 
Daarvoor gebruikt de genlocker een 
high speed videoschakelaar. Met be¬ 
hulp van deze schakelaar is het mo¬ 
gelijk om videobeelden als het ware 
over elkaar heen (overlay) te leggen 
waardoor gemixde videobeelden ont¬ 
staan. 

Behalve het eigenlijke locken vervult 
de Amiga genlock A7802 nog twee 
andere belangrijke taken: 

• Encoding, het omzetten van het 
Amiga RGB-signaal in een voor 
de monitor en/of videorecorder 
bruikbaar composiet PAL- sig¬ 
naal. Voor het functioneren van 
de encoder is een PAL- referentie- 
signaal nodig om de computersig- 
nalen opnieuw te timen. 

• Video overlay switching, het 

schalen tussen het computer- en 
het externe videosignaal. Er zijn 
vier schakelmogelijkheden: Amiga 
Display, display externe videobron 
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Amiga’s nieuwste Genlock A8702 


(default), de background- en fore- 
ground-modus. In de background 
-modus wordt de achtergrond- 
klour doorzichtig en het externe vi¬ 
deobeeld (CVBS-signaal) zicht¬ 
baar in mixage met de computer 
graphics, bijvoorbeeld een aftite¬ 
ling. Het register 0 wordt hier als 
de schakelaar gebruikt. In de fore- 
ground-modus is zwart de door¬ 
zichtige kleur. Daarmee kan een 
(voor- en achtergrond-)kleur trans¬ 
parant gemaakt worden om een 
extern videobeeld in een venster 
te mixen. 

Voor de vakman/vrouw is er de moge¬ 
lijkheid om Black and Burst, het aan¬ 
bieden van een effen (zwarte) achter¬ 
grond voor overlays te gebruiken. De 
amateur zal in de meeste gevallen 
een normaal composiet videosignaal 
voor de overlay gebruiken. 

De A8702 

De door Alldata geïmporteerde A8702 
genlock beschikt over alle hiervoor 
genoemde mogelijkheden en heeft 
daarbij nog twee verschillende uitgan¬ 
gen: 

° Een gewone composiet BNC-uit- 
gang voor het aansluiten van een 
videorecorder of monitor. Uit deze 
output komt het gecombineerde 
(overlay) PAL-signaal. 

° De 23-polig RGB Amiga D-con- 
nectorvoor: Rechtstreekse aanslui¬ 
ting van de eigen Amiga monitor. 
Twee optionele schakelaars voor 
het switchen tussen Amiga-beeld, 
gemengd beeld, videobeeld op de 
voorgrond en Amiga-beeld op de 
voorgrond. En softwarematige 
aansturing via de parallelle poort 
van de Amiga. 

Het interface, in ons geval een test- 
model, is een net plat metalen kastje 
ter grootte van een pocketboek. Uit dit 
kastje komt eem lintkabeltje voor aan¬ 
sluiting op de Amiga D-connector. Dit 
kabeltje bleek voor onze Amiga 1000 
wat aan de korte kant om het interface 
gemakkelijk bereikbaar naast de ma¬ 
chine te zetten. Met enig gefriemel 
past het kastje gedeeltelijk onder de 
Amiga en bleven de beide schakel- 
knoppen toch binnen bereik. 

Alldata heeft toegezegd dat voor alle 
Amiga’s eigen aangepaste uitvoerin¬ 
gen komen, zodat de gebruiker geen 
ongemak meer zal ondervinden. 

Pluggen 

Verder zitten er zoals gezegd op de 
genlocker een BNC video-in, - out en 
23-polige D-connector. Twee, nog on¬ 
gelabelde, drukknoppen regelden de 


verschillende modussen van de 
A8702. 

Het aansluiten van de genlock geef 
geen probleem, zolang men de no¬ 
dige verloopjes in huis heeft. Alldata 
levert de lintkabel er natuurlijk bij. De¬ 
ze is van een afwijkend TTL-type. Zelf 
er eentje solderen kan tot het opbla¬ 
zen van de RGB-poort leiden. Voor de 
videokabeltje moet u zelf zorgen. Vi¬ 
deorecorders gebruiken tulp-, SCART 
en BNC-pluggen. Voor tulp- en Scart 
zijn verloopstekkers en kabels bij een 
goede electro-nicazaak te koop. 
Neem wel enkele tientjes mee want 
goedkoop zijn deze supplies beslist 
niet! Desgewenst kan de gebruiker de 
kabeltjes met opgave van de juiste 
aansluitingen ook bij Alldata bestel¬ 
len. 


De videopraktijk 

Eerlijk gezegd waren wij behoorlijk 
sceptisch toen Alldata kontakt opnam 
om hun genlocker te laten testen. Er¬ 
varingen uit het verleden met slechte 
of peperdure genlockers waren nu 
niet bepaald gelukkig geweest en ook 
vele lezers klaagden hierover. Al bij 
de eerste demonstratie verdwenen de 
meeste vooroordelen opslag. Het is 
allemaal nog niet op en top broadcast- 
ing- kwaliteit, maar de A8702 komt 
daar wel heel dicht bij. Niet alleen op 
de monitor, maar ook op de video¬ 
recorder. Met name bij de VCR onder¬ 
scheidt de kwaliteit van deze genlock¬ 
er zich van andere goedkope appara¬ 
ten. 

Het maken van overlays en het swit¬ 
chen tussen de verschillende modes 
kan iedereen in vijf minuten leren. 
Genlocker aansluiten op de Amiga, 
externe videobron en output, software 


(kickstart en video- of paintpakket) in 
de Amiga en de voorstelling kan be¬ 
ginnen. Grote creatieve mogelijkhe¬ 
den bij een goede videokwaliteit. Vol¬ 
gens Alldata zit er nog een enhancer 
voor het wegwerken van de onvermij¬ 
delijke kopieerverliezen in de ont- 
werpkoker. Daar wilde men op het 
moment van schrijven verder nog 
niets over zeggen. 

Na het opstarten is de default vide¬ 
obeelden op de achtergrond en com- 
puter-graphics op de voorgrond. De 
kickstart-ikoon wandelt eerst door het 
beeld heen. Dat verdwijnt na het in¬ 
laden van de werkbank of video/paint- 
pakket. Voor het veranderen van de 
videomodus drukt de gebruiker op de 
desbetreffende schakelknop van het 
interface. Ons inziens verdient het 
aanbeveling deze schakel-optie er ge¬ 
woon bij te kopen gezien het grote ge¬ 
bruiksgemak dat men daar van heeft. 
Het effect van fore- en background- 
modus is afhankelijk van de gebruikte 
kleurinstellingen. In de background- 
modus krijgt de gebruiker de beste 
resultaten als er ook een zwarte ach- 
tergrondkleur gekozen wordt. Dat 
voorkomt het doorlopen van de 
kleuren. In de foreground-modus, 
waar de Amiga graphics transparant 
zijn, verdient het aanbeveling om de 
preferences naar smaak in te stellen. 
Aanbevolen wordt om Rood en Groen 
minder dan 50% in te stellen en blauw 
op full te zetten. Hier door ontstaat 
een professioneel blauw overlay-ven- 
ster. Gebruik nimmer dezelfde voer¬ 
en achtergrond- 

kleur.kleurkleurkleurkleur want dan 
wordt de achtergrond niet doorzichtig. 
Register 0 is dan inactief. 
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Lastig 

Een klein probleempje geeft het en- 
coderen van het Amiga RGB- signaal. 
Zonder een extern referentiesignaal 
komt er niet veel bijzonders uit de vi- 
deo-out. De gebruiker zal de genlock¬ 
er dus een tuner- of andersignaal 
moeten aanbieden voor het in fraaie 
PAL-kleuren vertonen van de Amiga- 
graphics. Dan behoeft de A8702 niet 
"droog te zwemmen". Een alternatie¬ 
ve mogelijkheid is het aanbieden van 
een zwartwit-signaal voor het creëren 
van zwartwit-overlays. 

Opstelling 

De video-configuratie is uiteraard af¬ 
hankelijk van het beoogde doel. Vide- 
omakers zullen de Amiga voor met 
genlocker gebruiken voor mixages en 
aftiteling. Daarvoor zijn nodig een vi¬ 
deocamera of videorecorder voor 
weergave, een opnamerecorder en/of 
output-monitor. Bij voorkeur maakt 
men gebruik van meerdere monito¬ 
ren: een voor de Amiga zelf en een 
voor het controleren van het compo¬ 
siet outputsignaal. Let er bij het ge¬ 
bruik van een monitor op dat deze op 
AV/VCR staat anders wordt de output 
niet korrekt weergegeven. 


Bij interactief onderwijs maakt men 
gebruik van een door de Amiga ge¬ 
stuurde beeldplaat- of videorecorder. 
Het interactieve Amiga- programma 
stelt de vragen of verschaft de bege¬ 
leidende teksten. De externe video- 
bron levert de bijbehorende beelden. 

Gebruiksmogelijkheden 
De toepassingen van de Amiga met 
genlock zijn legio. Behalve videopro¬ 
ducties, reklamepresentaties, slide- 
shows en interactief onderwijs zijn er 
nog tal van andere gebruiksmogelijk¬ 
heden. Alldata noemt zelf trainings- 
systemen, het gelijktijdig bekijken van 
twee videobronnen (bijvoorbeeld een 
computer- en een TV- programma), 
informatie-terminal en toepassing als 
een video- database. 


Conclusies en opmerkingen 

De A8702 Genlock is een welkome 
aanvulling voor de videoproducent of 
onderwijskundige die met de Amiga 
werkt. Voor ƒ 831,67 (exclusief 
B.T.W) krijgt de koper een kwalitatief 
goede genlocker met tal van krachtige 
en creatieve mogelijkheden. 

Verwacht echter geen wonderen van 
deze genlocker. Het geringe kwali¬ 


teitsverlies (high frequency details) 
van het omzetten van RGB naar PAL- 
composiet blijft zichtbaar. Hetzelfde 
geldt bij opname met videorecorders 
en vertoning op de huiskamer-TV. De¬ 
ze achteruitgang ligt niet aan de gen¬ 
locker, maar is inherent aan de kwali¬ 
teit van de overige randapparatuur. 

De A8702 kan het signaal van een 
VCR goed tracken zolang dit van een 
redelijke kwaliteit is. Een matige 
bandkwaliteit en versleten of vuile re- 
corderkoppen geven een slecht resul¬ 
taat. Hetzelfde geld voor videotruca- 
ges waarbij niet-standaard synchroni- 
satiesignalen gebruikt worden. 
Afgezien van de hier gemaakte kant¬ 
tekeningen biedt de A8702 veel waar 
voor zijn geld. In zijn prijsklasse kent 
deze genlocker in Nederland momen¬ 
teel geen concurrentie. Wie meer wil 
zal ook veel meer moeten betalen. En 
als de beloofde enhancer gereed is 
zal ook de verwende gebruiker van 
consumenten-video geheel aan zijn/- 
haar trekken komen. 

Voor alle Info: Alldata, , tel. : 03465- 
65016/73767. 

U.S. 


NIEUW 



SPECIALE AANBIEDINGEN: 
Eprommer II No:65 


f 139.50 


Epromprogrammer voor de verschillende type eproms 2716 t/m 27256. 
Met de Epromprogrammer kunt u ook de A en de Cmos eproms program¬ 
meren. (verschillende programmeer spanningen 12.5/21/25 volt.) 

De epromprogrammer Is helemaal softwarematig gestuurd.(Nederland¬ 
se software Nederlandse beschrijving.). Men kan met de Eprom¬ 
programmer eproms uitlezen, vergelijken, copleeren en natuurlijk 
programmeren. Verder zit er in de software een moduulgenerator 
die de programma's, omschrijft voor eprom (Tot 16K). Men kan zo 
zijn eigen programma's of die van andere op eprom zetten. Zo kan 
men eenvoudig meerder programma's In I eprom plaatsen die door¬ 
middel van een menu eenvoudig zijn aan te roepen. 


Superepromkaart No:832 


F 135.00 


Deze Superepromkaart Is een Ideaal hulpstuk voor mensen die vaak 
dezelfde programma's gebruiken. (BV.Superbase, Vizawrlte, 
Copleerprogrammas enz.). Men kan dan namelijk snel en zonder 
tezoeken een programma gebruiken. Men kan op deze Superepromkaart 
bijna 2 volle diskette plaatsen. Het omschrijven van de pro¬ 
gramma's voor eprom regelt de kaart zelf door zijn unieke moduul¬ 
generator. Deze kan 1 dellge programma's ten grote van maximaal 
172 blocks (40K) omschrijven. Op de Superepromkaart kan men 2764 
t/m 27256 eproms plaatsen. Het programmeren van deze eproms dient 
men met een epromprogrammer te verrichten. 


NIEUW 


Epromkaartje 


19.50 


Dit is een leuk klein epromkaactje met vele mogelijkheden. Men 
kan hier 2 8k of 2 16k epcoms opplaatsen zonder zelf iets te 
solderen of teverbreken. Op het kaartje Is verder een mogelljk^ 
held om een resetknop te plaatsen. 


Universele print No;210 


f 19.50 


Een kaartje voor de hobbyisten. Men kan dit epromkaartje voor 
verschillende,doeleinden gebruiken. Als moduul of externe kernal 
kaart. Wanneer men het Unlvecselekaartje als moduulkaartje wilt 
gebruiken dan heeft men de keus, deze op verschillende wijze te 
bestukken. Als een 8k kaartje of als een 16k Kaartje (Belde 
mogelijkheden zijn softwarematig uitschakelbaar.) 

De Universele print past precies In een moduulkastje (No:1270) 
Verder Is er nog een mogelijkheid om er een resetknopje op 
teplaatsen. (Compleet bestukt als 16K zijnde No:211) 

COMMODORE ICS 


IC Type 

Type 

Comp/drlve 

Prijs. 

IC Type 

Type 

Comp/Drlve 


Prijs. 

6510 

C64 F 

29.95 

6502 

1541 

F 

19.50 

6526 

C64 

29.95 

6522 

1541 

- 

19.50 

6569 

C64 

84.00 

901229 

1541 

- 

42.00 

6581 

C64 

65.00 

325302 

1541 

- 

48.00 

901225 

C64 

37.50 

325572 

1541 

- 

48.00 

901226 

C64 

40.00 



— 


901227 

C64 

40.00 

8502 

C128 

- 

52.50 

906114 

C64 

29.95 

8701 

C128 

- 

58,00 

8701 

C64 

58.00 

8721 

C128 

- 

58.00 




8722 

C128 

- 

58.00 

8501 

C16 

42.50 

8563 R9 

C128 

- 

135.00 

8360 

C16 

82.00 

8566 R3 

C128 

- 

92.50 


Nieuw binnengekomen AMIGA IC 8520 uit voorraad leverbaar 
F 107.50 
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op de C-128 kan een tamelijk brede administratie een plaatsje vinden. Datahome 
maakte een financieel pakket voor huisartsen, dat ook de patientenregistratie afhan¬ 
delt. 


Fresh 


Financieel registratiesysteem huisartsen 


D e C-128 is met zijn wat grotere geheugen en professioneiere toetsenbord 
en (bij de D) ingebouwde diskdrive heel bruikbaar voor administratie- 
werk. Voor de huisartsenpraktijk is er dus nu ook een pakket afgestemd op 
deze Commodore. 


Het bedrijf Datahome is nogal actief 
op het Commodore softwarefront en 
heeft in feite de piaats ingenomen van 
heel wat grote importeurs en softwa¬ 
rehuizen uit het recente C-64 ver- 
ieden. 

Met een C-128 D, een kleurenmonitor, 
een Star NL-10 en het software-pak- 
ket Fresh bieden ze nu de huisarts 
een relatief goedkope oplossing. Voor 
het totaal betaalt men inclusief de 
hardware ƒ 3.798,- incl. BTW. en dan 
komt men het pakket ook nog aan huis 
afleveren, installeren en demonstre¬ 
ren. De software is ook afzonderlijk 
verkrijgbaar, maar dan met wat min¬ 
der "after-sales" service, het kost in da 
gevai ƒ 399,-. Er zit wel garantie op 
Fresh, maar liefst 5 jaar, maar zolang 
zal uw C-128 het vast niet volhouden, 
de ontwikkeling gaat daarvoor te snel. 


Registratie verrichtingen 

Zoals meestal het geval is bij een ad- 
ministratiepakket ligt aan Fresh een 
database ten grondsiag. Daarin zitten 
de patiënten, hun gegevens en daar 
kan dan de verrichting of behandeiing 
aan worden toegevoegd. Met het 
Fresh pakket kan de huisarts of zijn 
assistente dan registreren wat er ge¬ 
beurt, maar bijvoorbeeld ook de re¬ 
kening in de vorm van nota’s en een 
acceptgirokaart aanmaken. 

Hoofdmenu 

Het pakket is, en zo hoort dat ook voor 
dergelijke "verticale" software waarbij 


de gebruiker niet veei van de compu¬ 
ter behoeft te weten, helemaal menu- 
gestuurd. In het hoofdmenu kan men 
kiezen uit een aantal algemene proce¬ 
dures, uit het ingeven van de stan¬ 
daard verrichtingen, het printen van 
de nota’s (fakturen), het bijwerken van 
betaalde nota’s, het maken van over¬ 
zichten en aanmaningen en natuuriijk 
de registratie van de patiënten. Dat 
laatste vormt het hart van het sys¬ 
teem, en de gegevens per client/pa- 
tient of relatie kunnen in een aantal 
overzichten worden weergegeven. 


Algemene opzet 

De database in Fresh kan maximaal 
1250 relaties (patiënten) bevatten en 
dat is misschien iets aan de krappe 
kant voor een normale praktijk. Maar 
wanneer men de hele zaak alleen 
voor particuliere patiënten gebruikt. 
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en die krijgen tenslotte de rekeningen, 
is het wel voldoende groot. 

Er kunnen 28 soorten verrichtingen 
met codes worden vastgelegd, met 
een maximum van 2000 verrichtingen 
per boekingsperiode (kwartaal). Na 
het sturen van de acceptgiro’s kunnen 
ook de betaiingen natuurlijk verwerkt 
worden, ook als er sprake is van deel- 
betalingen. Wie niet betaalt, krijgt een 
herinnering of een kopie van de nota. 
Er kan ook een set stickers worden 
gemaakt, wanneer bijvoorbeeid een 
verhuisbericht verstuurd moet wor¬ 
den. 

Voor de boekhouder zijn natuurlijk 
kwartaaloverzichten te maken, maar 
ook is de "omzet" in grafiekvorm te be¬ 
studeren. 

Alles bij elkaar is dit systeem een vrij 
diepgaande aanpassing van een 
standaard computeradministratie aan 
de speciale wensen van het medische 
beroep. Er zullen zeker opmerkingen 
gemaakt worden, dat een C-128 toch 
niet groot genoeg is voor zoiets, maar 
wie ai zo’n apparaat heeft of wie eens 
voorzichtig wii beginnen aan wat auto¬ 
matisering op bescheiden schaal in 
zijn praktijk, kan hier heei aardig mee 
uit de voeten. Het is geen complete 
vervanging van de administratie, het 
betreft namelijk alleen de uit te sturen 
nota’s, inkomende rekeningen moe¬ 
ten op een andere manier worden bij¬ 
gehouden, maar het is zeker een 
goed doordacht en aangepast stukje 
software. 

Inl. Datahome, 020-855204. 
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Catch 23 

Van Martech komt dit militair aan¬ 
doend adventure, dat tamelijk inge¬ 
wikkeld is. De speler komt terecht op 
een eiland, op n van vijf lokaties, ieder 
in de buurt van een "safe" huis. Het 
doel is natuurlijk om het er weer le¬ 
vend af te brengen, alle opdrachten te 
vervullen en ondertussen punten te 
verzamelen. Het tot nu toe behaalde 
maximum is 83700 punten, en dat in 
een tijd van 2 uur en 38 minuten, maar 
de gemiddelde avonturier zal er heel 
wat langer over doen. Het spel is af te 
breken en opnieuw te starten, indien 
men dat in een "safe" huis doet. Daar¬ 
voor moet de "timer" op 00:00 gezet 
worden. 

Er zijn 6 zones, ieder vol verdachte 
huizen met "transmitter"-kamers, ge¬ 
varen, tanks, bommen en patrouilles, 
maar middels een "dangerometer" 
kan men de situatie beoordelen. Als 
extra heeft men een mijndetector, die 
echter maar 15 minuten functioneert, 
tenzij men wat batterijen weet op te 
sporen in de gebouwen op het eiland. 
De oplossingen voor de adventure 
kunnen zoals gebruikelijk gevonden 
worden door goed te letten op de aan¬ 
wijzingen, een voorwerp op een tafel 
kan al een aanwijzing bevatten over 
wie een bepaalde "transmitter" kamer 
bewoont. Wanneer die goed geraden 
wordt, kan men gaan zenden, natuur¬ 
lijk weer met de nodige codes om bij- 
voorbeeid de CK23 "interceptor" van 
brandstof te voorzien. 

De verschillende transmitters moeten 
allemaal gevonden worden om verder 
te komen. 

Op het einde van het spel komt men in 
de 6e zone, die erg gevaarlijk is, maar 
wel de laatste transmitter en de CK23 
interceptor bevat. 

Alles bij elkaar een hele zoekpartij, 
een middenklasse adventure voor de 
C-64 waardig. 

Zodiac 


Search for the secret of life 

Van Incentive software uit Berkshire 
UK, kregen we dit pakket opgestuurd 
en bij alle serieuze adventures moes¬ 
ten we hier af en toe wel om lachen. 
Humor kan de makers niet ontzegd 
worden, al is dit "graphic" adventure 
zeker geen grapje. In de drie delen 
ervan komt men, bij het verzamelen 
van de tekens van de dierenriem, in 
aanraking met diepe problemen, afge¬ 
zien nog van de tegenstander Ramus. 
men heeft dit pakketje (op cassette) 


de "doublé gold" aanduiding gegeven 
en het is inderdaad een uitdagende en 
toch speelbare adventure (in drie de¬ 
len) met een wat diepgaander inslag 
dan de gebruikelijke zoek en mee¬ 
neem taktieken. Via passwords krijgt 
men steeds toegang tot het volgende 
deel, dus men hoeft niet steeds de 
hele zaak te doorlopen, als men een¬ 
maal door een deel is heengegaan. 
Op de keerzijde van de cassette staat 



nog een tweede adventure, "op zoek 
naar het geheim van het leven" en ook 
dat is wel een aardig gegeven, al is 
het zoeken in twee huizen/kastelen 
misschien wat gewoontjes voor de 
ware avonturier. 


Ninja Hamster 

Vroeger noemde men dit karate spel¬ 
letjes, nu is Ninja in de mode. Toch is 
onze held in dit spel wel weer wat 
anders dan de gebruikelijke trappen¬ 
de en slaande oosterling. Het is na¬ 
melijk een knaagdier, de Ninja ham¬ 
ster. Hij heeft een nobel doel, namelijk 
zijn dorp te bevrijden van slechte vij¬ 
anden, wanneer hij terugkomt van een 
reis. Die vijanden hebben de vorm van 
een rat, een hagedis en meer van dat 
ongedierte. En dan is het vechten ge¬ 
blazen, met trappen, bijten en slaan. 
Op disk gaat dit C-64 spel ongeveer 
60 gulden kosten. 

I Allen 

Van het Engelse CRL komen er een 
paar interessante spellen, zij het dat 
de thema’s wat afgekloven zijn. Van 
de zoveelste vechtgame met een Nin¬ 
ja als hoofdfiguur is niemand echt on¬ 
der de indruk. I Alien is voor de C-64 
en gaat over een arme heid, die be¬ 
dreigd wordt door mensen van de pla¬ 
neet Aarde, die hem willen meene¬ 
men als proefkonijn voor experimen¬ 


ten. Maar de "Alien" heeft een kans 
om te ontsnappen, wanneer hij zijn 
ruimteschip weet te bereiken. Maar 
dat is nu juist de essentie van dit ver¬ 
der niet opzienbarende spel, op weg 
daarheen vliegen de vijanden in aller¬ 
lei gedaantes weer in het rond. De 
ijsdraken, droids, mutanten, kortom 
de hele batterij eliende moet ovenwon- 
nen worden. En wie daar doorheen 
komt, moet verder op zoek in een 
duister labyrinth. 

Mandroid 

In deze opvolger van het sussesvolle 
Cyborg wordt je op een missie ge¬ 
stuurd om gestolen ‘blueprints’ terug 
te krijgen van de zeer geheime bouw¬ 
werken, functies en verdedigingssys¬ 
temen. Dit document kan in handen 
van de verkeerde persoon een ge¬ 
vaarlijke uitwerking hebben. 

Je gaat op zoek op diverse plaatsen, 
waar je verschrikkelijke tegenstan¬ 
ders ontmoet. Bandieten, dronkaards 
en gevallen vrouwen treden je tege¬ 
moet. Probeer ze om te kopen, maar 
pas op dat je ze niet tegen je in het 
harnas jaagt. 

Naarmate het langer duurt om de 
blauwdrukken te achterhalen, 
produceren de boze krachten die ze 
ontvreemd hebben steeds meer Man- 
droids. Uiteindelijk moet je deze ma¬ 
chines opsporen en buiten gevecht 
stelien. Dan moet je ook nog de kluis 
vinden waren de blauwdrukken be¬ 
waard worden. 


Wraak 

Dit spel mag misschien ‘Vengeance’ 
heten, ‘Kamikaze’ zou toepasselijker 
zijn geweest. Er wordt in dit spel van 
je verwacht dat je geheel alleen vijan¬ 
delijke ruimteschepen aanvalt. Alleen 
een gek zou zo’n opdrach aannemen, 
want het enige resultaat kan een on- 
middelijke dood zijn. Toch moet de 
buitenaardse terreur een halt toege¬ 
roepen worden, en iemand moet de 
verschrikkelijke vijand tegemoet tre¬ 
den op diens eigen terrein en volgens 
diens spelregels. 

Wanneer je het buitenaardse ruimte¬ 
vaartuig binnen komt, wacht je een 
afschrikwekkend doolhof van gangen 
en kamers. Als je alle benodigde com¬ 
ponenten hebt verzameld kun je mis¬ 
schien je doel, wraak te nemen op de 
verschrikkelijke terreur, bereiken. 
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Timetrax 

Om het heelal te redden is het in 
Timetrax noodzakelijk de Time Lords 
tevreden te stellen door ze acht din¬ 
gen te overhandigen. Deze zaken 
moeten gevonden worden in het 
tijd/ruimte continuüm, dat je kunt 
bereizen door gebruik te maken van 
de mysterieuze ‘Portals’. Deze 
tijdsiuizen gaan op bepaalde tijden 
open, en als je die tijden eenmaal 
weet kunt je door de tijd heen en weer 
reizen, Daarbij kun je wel gehinderd 
worden door diverse rondtrekkende 
huurlingen die hét slagen van je mis¬ 
sie willen verhinderen en je zullen 
doden als ze de kans krijgen. 

Het spel bevat 21 verschillende grafi¬ 
sche schermen, drie voor iedere tijd¬ 
zone. Als je het goed doet kun je van 
‘pudding’ via ‘reiziger’ tot ‘halfgod’ 
promoveren. 

Op jacht naar de schat 

Wel wat intelligenter dan de ver¬ 
schillende vecht- ruimte en gedroch¬ 
tenspelletjes is de Treasure Hunt’ vol¬ 
gens het overbekende TV-principe. 
Gaat op TV een presentator fysiek op 
jacht naar de schat, terwijl de jagers in 
de studio moeten blijven, in dit spel¬ 
letje dat op de Engelse 'jacht naar de 
schat’ is gebaseerd, doe je het alle¬ 


maal zelf. Op basis van de aanwij- 
zigingen moet je de piloot zeggen 
waar naar toe te vliegen en waar te 
landen om uiteindelijk de schat te vin¬ 
den. Op het scherm kun je de ontwik¬ 
kelingen bijhouden op een kaart 
waarop de afgelegde weg is te volgen, 
en een status-scherm geeft aan 
hoeveel tijd is verstreken en of je 
helicopter nog benzine heeft. 

Er zijn verschillende ‘jachtpartijen’ op 
de cassette bijgeleverd, waaronder 
een spel in Londen. 

XPER 64 

Met enige durf noemt men dit databa¬ 
se pakket voor de C-64 nu al een ex¬ 
pert systeem. Veel meer dan een vrij 
goed uitgedachte database met mis¬ 
schien wat Artificial Intelligence trek¬ 
jes is het echter niet. Toch is dit pak¬ 
ket wel aan te raden, want voor de 64 
zijn niet zo heel veel programma’s op 
de markt, die een beetje tegen de 
professionele ontwikkelingen aanhan¬ 
gen, Het is een soort applicatie-gene- 
rator ofwel een aanpak, waarbij op ba¬ 
sis van vrij simpele gegevens en com¬ 
mando’s een database opzet (struc. 
tuur) wordt aangemaakt, waarmee 
men dan verder kan werken. Het vaak 
bewerkelijke opzetten van de file en 
record indeling met alle "fields" wordt 


de gebruiker deels uit handen geno¬ 
men, hij kan zich meer bezighouden 
met het vullen van de database, en 
het opvragen en wijzigen van de data. 
Dat manipuleren met gegevens, zoe¬ 
ken, sorteren en selecteren is een van 
de sterke punten van XPER-64. Dat 
heet dan heel fraai de rapporterings- 
fase in de database taal. Maar de er¬ 



varen database-aanhanger weet, dat 
juist in het maken van die ogenschijn¬ 
lijk zo simpele lijsten en uitdraaien, 
maar ook van stickers etc, heel wat 
werk gaat zitten. De prijs is niet echt 
aan de lage kant, Datahome verkoopt 
XPER-64 van Abacus (gelieerd aan 
Data Becker) voor ƒ 299,50, maar het 
is zeker een interessante ontwikkeling 
op de 64, die bijvoorbeeld in het on¬ 
derwijs de leerlingen snel vertrouwd 
kan maken met het nut en de beper¬ 
kingen van een database. 020- 
837367. 


The Living Dayiights 

Een full screen oog, een vervaarlijk heer 
in jacquet met Walther PK-pistool, een 
schot, bloed trekt over het witte doek en 
het James Bond-thema schalt de zaal in. 

James Bond is weer terug in bioscoop en 
als videogame. Op het witte doek schit¬ 
teren de vierde "Bond" Timothy Dalton, 

Jeroen Krabbé als schurk, Bond-girl 
Maryam d’Abo en ook de zwaarbewapen¬ 
de Ashton Martin 160 Vantage is weer 
terug. Wie het allemaal thuis nog eens wil naspelen kan bij 
het Bond-huismerk Domark terecht. Dit Britse softwarehuis 
bracht haar traditie getrouw ook de nieuwste Bond-film, 
The Living Dayiights als videogame uit. 

In het verleden waren wij niet onverdeeld gelukkig met de 
Bond- games van Domark. De graphics en spelactie vielen 
nogal eens tegen en een aantal versies bleken, tengevolge 
van de grote haast bij de release, verre van luisvrij. De 
laatste tijd heeft Domark haar leven echter gebeterd en het 
spelontwerp wordt tegenwoordig in handen van een vast 
machine-team gegeven. Zo is er een 68000 (Amiga en 
Atari ST)-, Commodore- en MSX-team. Dat geeft de koper 
meer zekerheid dat The Living Dayiights uit zijn/haar com¬ 
puter haalt wat er in zit. 

Blijft over het spelgegeven. Een James Bond-film op het 
witte doek valt moeilijk na te vertellen. De uitgekiende 
mixage van humoreus high tech-geweld, slimme super¬ 


schurken, verleidelijk vrouwelijk schoon, 
de Bond-charme en ondersteunende mu¬ 
ziek is al jaren een succesformule. De 
toeschouwer wordt als het ware in de 
werveling der gebeurtenissen meege¬ 
sleurd. Deze succesformule in een video¬ 
game onderbrengen is een ondoenlijke 
zaak. De makers moeten zich noodged¬ 
wongen beperken tot een arcade-game 
met bijpassende muziek. 

Het game The Living Dayiights biedt de 
speler acht op de film gebaseerde spelniveaus in oplo¬ 
pende moeilijkheid. Ook het verhaal bleef identiek: De 
overloper Koskov moet uit Rusland ontsnappen voor de 
KGB-killers hem naar de andere wereld helpen. Helaas 
blijkt Koskov meer op het eigen voordeel dan dat van het 
vrije Westen uit. De slimme schurk heeft profijtelijke be¬ 
trekkingen met de internationale wapenhandelaar Brad 
Whittaker. Voor het vrouwelijk schoon zorgt de fraai ge¬ 
vormde celliste Kara. Het sadistische geweld schuilt hem 
in de met koptelefoonkabels wurgende killer Necros. 

Terug naar de verschillende spelniveaus: 

* Niveau 1 is de introductie op Gibraltar. Een kleine test 
van de defensie op deze apenrots door commander Bond 
leert de speler de benodigde spelbehendigheid aan. De 
tegenstanders zouden slechts bevriende SAS-agenten 
zijn, maar er blijkt toch ook een verborgen killer tussen de 
goeden te zitten. Een beetje Bond weet zo’n snoodaard na- 
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tuurlijk wel te vatten. M heeft Bond in ieder geval voorzien 
van een ghetto-blaster (=radio) met ingebouwde raketten, 
pistool, Bazooka, granaten, nachtkijker, roestvrij-stalen 
hoed, mortieren, pennen met miniraketten en zelfs een 
kruisboog. De tegenstanders slaan terug met handvuur- 
wapens, helicopters en exploderende melkflessen. 

* Op niveau 2 wordt kontakt met Koskov gelegd. Helaas 
blijkt niet iedereen van muziek te houden en wemelt het dak 
van de Lenin Music Conservatory van de sluipschutters. 
Verdedig Koskov met de joystick tegen zijn belagers 
zonder andere muziekliefhebbers te raken. 



* Niveau 3 behandelt de ontsnapping per Trans-Siberi- 
sche pijpleiding. Hierbij moet Bond de arbeiders trachten 
te ontwijken. 

* Op niveau 4, The Mansion House verschijnt Necros in 
Great Britain om Koskov te elimineren. Pas op voor de witte 
motor, want de melkman gooit met bommen. 

* Niveau 5 gaat weer over Necros. Dit maal is de Fairgrond 
de plaats van handeling. Probeer kontakt met een collega 
te leggen en stel Necros buiten gevecht. 

* In niveau 6 toont Koskov zijn ware gezicht. Op de daken 
van Tangiers ontbrand een verwoedt gevecht tussen 
Bond, op zoek naar de ontsnapte Koskov, en de 
huurmoordenaars van de wapenhandelaar. 

* Op niveau 7 wordt de zaak echt spannend. Bond zit in 
danig in het nauw in de Afghaanse woestijn. De plaats van 
handeling is een Russisch militair complex en de soldaten 
brengen meteen hun hele arsenaal in stelling. 

* De afrekening in Whittakers’s huis volgt op niveau 8. In 
een complete veldslag moet Bond "the master mind" ten val 
brengen. 

The Living Dayiights vinden wij als arcade spel redelijk tot 
geslaagd. De graphics zijn goed, de actie op de hogere 
niveaus boeit, spelen is voldoende moeilijk maar niet on¬ 
mogelijk en de muziek mag gehoord worden. Helaas kan 
het game zoals gezegd de sfeer van de film niet evenaren. 
Verder is enig strategisch inzicht vereist voor de juiste 
wapenkeuze. Vergissingen in deze breken Bond zuur op 
hoewel tijdens het spel van wapen gewisseld kan worden. 
Enkele wapens zijn slechts één keer bruikbaar. Het sta- 
tuspaneel informeert u over de beschikbare wapens, kracht 
en de nog overgebleven Bond-levens. Een joystick is nood¬ 
zakelijk. 


The Tube 

De liefhebbers van Science Fiction-games kunnen weer 
eens ouderwets lekker smullen van Quicksilva’s The Tube. 
De spelheld heeft de pech om met zijn/haar schip de Track- 
er II in een meteorenstorm terecht tekomen. Daardoor ont¬ 
staat nogal wat ernstige schade die snel gerepareerd dient 
te worden. Om de ramp compleet te maken wordt de Track- 
er en passant in een zwart gat gezogen en wachten aan het 
andere eind een club vijandige Aliens. 

Klinkt bekend in de oren? Toch blijkt er een verassend 
nieuw spelidee in de The Tube te zitten. Achter het zwarte 
gat zit The Tube. Een krankzinnig tunnelstelsel opgezet 
door vreemde buitenaardse geesten met het doel om "oud 
ijzer" (lees onfortuinlijke ruimteschepen) te verzamelen. 
Een kunstmatig krachtveld begint de Tracker II al direkt 
naar binnen te trekken en in de diepte van het Tube-com- 
plex dreigt een totale ontmanteling. 

Gelukkig is het nieuwe slachtoffer, u dusl, wat scherper van 
geest dan de onfortuinlijke voorgangers. En met een goede 
strategie bij het aftappen van energie uit andere vaartuigen 
komt de speler een heel eind. Zet de defensieve krachtvel¬ 
den alleen aan als het nodig is, voorkom botsingen met 
andere naar energie hunkerende objecten en plunder zelf 
zo veel mogelijk energiebronnen, dat zijn de sleutels tot 
overleven. 

The Tube bestaat uit 8 segmenten met elk drie zones: 

* De Transfer Zone is ontworpen om ruimteschepen te 
vangen, en vervolgens naar het centrum van The Tube te 
transporteren. Deze zone zit vol met parasitaire Aliens en 
rondzwervend schroot. Allen vreten uw energie ziender¬ 
ogen weg. Een slim bommetje of een laserbeschieting op 
zijn tijd schakelt tegenstanders snel en doeltreffend uit, 
maar kost zelf ook weer energie. 

* De volgende zone is de DMT. DMT staat inderdaad voor 
een soort bestrijdingsmiddel. Alleen bestrijdt de Defence 
Mechanisme Tunnel geen ongedierte, rnaar loert de DMT 
op bewapende schepen die de Tube in gevaar kunnen 
brengen. Wordt een gevaarlijk schip gedetecteerd dan gaat 
de DMT onmiddelijk tot een zware aanval over. Schepen in 
slechte doen worden door dit Tube-deel verder verzwakt. 



* Zij die de DMT overleven komen in de Capture Zone. 
Hier is het Mekka van de Alien ruimteslopers. Hier liggen 
de slachtoffers op hun vreemde meesters te wachten. U 
natuurlijk niet, want al die schepen kunnen nog bruikbare 
energiekristallen aan boord hebben. Voldoende gesterkt 
met energie kan de speler de volgende sector proberen. 
The Tube munt op de C-64 en C-128 uit door werkelijk sub¬ 
lieme graphics en de goed gekozen muziek van David Wit- 
thaker. De actie is glad en enerverend. Het game kan zowel 
met het toetsenbord als joystick gespeeld worden. 
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De beginnende programmeur kan met hulp van 
deze serie artikelen stap voor stap leren, hoe 
leuk het is, om zelf meer te doen met de Com¬ 
modore, dan alleen het spelen van voorgekook¬ 
te spelletjes en het gebruiken van andere ge¬ 
kochte software-applicaties. Stap voor stap 
worden in deze cursus door Jan Bodzinga de 
elementaire feiten van Basic behandeld. De 
stof is daarbij bewust erg eenvoudig en duide¬ 
lijk gehouden, zodat ook de volslagen ‘leek’ op 
programmeer-gebied erdoor kan uitgroeien tot 
een redelijk programmeur. Maar ook de meer 
gevorderde ‘Basiccer’ zal ongetwijfeld nog wel 
dingen in deze cursus tegenkomen, waarmee 
z’n kennis kan worden aangevuld. 



Basis Basic 


Deel 17 
De diskdrive 

I n de vorige aflevering zijn we tot in detail bezig geweest met het gebruik 
van de cassetterecorder. Om ook voor de Commodore diskdrive dezelfde 
informatie te kunnen geven, zullen we in dit artikel voornamelijk bezig zijn 
met het programmeren van dit externe device. Het maakt daarbij weinig ver¬ 
schil of je nu werkt met een C-16 en drive of bijvoorbeid een C-128. Hoewel 
deze laatste beschikt over een serie geavanceerde Basic-opdrachten om 
met de drive en floppies te kunnen werken, zullen we voor de basiskennis 
uitsluitend gebruik maken van de elementaire Basic opdrachten, zoals die 
in 1976 door Commodore zijn ontwikkeld. 

drive ten opzichte van de tapeverwer- 
king. Door de structuur van de disket¬ 
te zijn we met hulp van de drive name¬ 
lijk in staat om overal in het bestand te 
prikken en data te lezen. We noemen 
dat een relatieve benadering van be¬ 
standen. De cassettedeck kan alleen 
maar Byte voor Byte, sequentieel, de 
tape aftasten. 

Bij de diskette kunnen we, net als bij 
een grammafoonplaat op de pick-up 
met de lees/schrijfkop overal op de 
disk gegevens lezen en schrijven. 
Daardoor is een disk ook sneller voor 
veel meer doeleinde aan te wenden. 
Hoewel tegenwoordig ook de disks 
niet zo duur meer zijn als een paar 


Tape of disk 

Het grote verschil tussen de cassette¬ 
recorder en de disk-drive ligt in manier 
waarop beide de opgeslagen gege¬ 
vens kunnen wegzetten en terug le¬ 
zen. Laten we voorop stellen, dat al¬ 
les wat met een cassettedeck kan 
worden uitgevoerd op (nagenoeg) de¬ 
zelfde manier met de diskdrive kan 
worden gedaan. De enige uitzonde¬ 
ring op deze stelling is wellicht de 
trucendoos die door sommige spelle- 
tjes-fabrikanten wordt open getrokken 
om met hulp van enkele interrupts de 
gebruiker tijdens het laden te vergas¬ 
ten op een leuk muziekje en wat 


schermwerk. Bij gebruik van disks is 
het inlezen van software en data ge¬ 
lukkig lang niet zo tijdrovend, en deze 
trucs zijn daarbij ook minder nodig. 
Kortom, de echte verschillen, waarbij 
de cassette l/O tot meer in staat is, lig¬ 
gen op het niveau van expert-pro- 
gramma’s. Wij zullen ons daar in dit 
geval niet mee bezig houden. 

De diskdrive kan in ons geval dus al¬ 
les uitvoeren, wat we met de casset- 
tetape ook kunnen doen. De tijd die dit 
bij de Commodore drives in beslag 
neemt is weliswaar niet erg kort, maar 
toch een heel stuk sneller dan we van 
de cassette gewend zijn. Maar dat is 
niet het enige voordeel van een disk- 
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jaar terug, toen er soms meer dan der¬ 
tig gulden voor een floppy moest wor¬ 
den betaald, ligt de prijs van de disk¬ 
drive nog wel veel hoger dan van een 
eenvoudige cassetterecorder. Maar 
de capaciteiten van de drive maken dit 
verschil zeker goed. 

Bestand 

Het fenomeen ‘bestand’ zal voor veel 
computergebruikers een begrip zijn, 
voor anderen is het nogal moeilijk een 
exacte voorstelling te maken over de 
juiste eigenschappen van een be¬ 
stand. In principe is iedere verzame¬ 
ling gegevens (data) die op een op¬ 
slagmedium is weggezet een be¬ 
stand. Maar voor normaal gebruik is 
het natuurlijk beter, dat een bestand 
ook over een bepaalde structuur kan 
beschikken. Door deze structuur kun¬ 
nen zowel de gebruiker als de drive 
sneller en efficiënter met een bestand 
omgaan. De naam ‘file’wordt vaak ge¬ 
bruikt om een bestand aan te duiden 
en is dan ook precies hetzelfde. Om 
een filestructuur te geven, zullen we 
moeten weten wat dat inhoudt. Een 
verzameling data, samengebracht op 
tape of disk, is sowieso een bestand, 
maar ongestructureerd hebben we er 
niet zoveel aan. 

Alleen tekstbestanden, uit een tekst¬ 
verwerker, kunnen zonder structuur 
worden bewaard. De meeste andere 
bestanden zullen op de één of andere 
manier tot een logisch geheel moeten 
worden opgebouwd, om er later nog 
wat aan te hebben. 

De eenvoudigste manier om dit te 
kunnen voorstellen is het oude voor¬ 
beeld van een kaartenbak. Het be¬ 
stand op disk of tape kan daar het ge¬ 
makkelijkst mee worden vergeleken. 
Alleen de namen van kaartenbak en 
bestand verschillen. 

Laten we de kaartenbak maar eens 
beter bekijken, aan de hand van een 
adressenbestand. Voor ieder adres 
hebben we een kaart in de bak. Op 
elke kaart vinden we diverse vakken, 
waarin per vak een bepaald gegeven 
moet worden ingevuld. Zowel de 
plaats op de kaart als het kenmerk van 
het gegeven is daarbij vastgelegd. 
Dus voor een adressenbestand bij¬ 
voorbeeld linksboven op de kaart het 
nummer, daaronder de naam, vervol¬ 
gens straat, postcode en woon¬ 
plaats, eventueel nog aangevuld met 
telefoonnummer, geboortedatum 
en andere gegevens. 

Eén dergelijke kaart bevat daarmee 
de volledige data van één adres. De 
volgende kaart ziet er natuurlijk net zo 
uit, maar bij de verschillende kenmer¬ 
ken vinden we op kaart twee uiteraard 
andere gegevens. Zo kunnen we in de 


kaartenbak doorgaan tot er geen 
ruimte meer is, om de platte kaarten 
op te bergen. 

Daarmee hebben we in feite een hard- 
ware-bestand gemaakt op de ouder¬ 
wetse manier. Je kunt je voorstellen, 
dat deze wijze van het opslaan van 
gegevens nogal tijdrovend is. Zeker 
ais je bedenkt hoe het in z’n werk zai 
gaan om de gegevens op alfabet en 
op postcode te moeten sorteren. Van¬ 
daar ook, dat de computer ons een 
heel stuk op weg kan helpen om dit 
procédé te versnellen. 

In ieder geval kun je zien aan dit kaar- 
tenbakvoorbeeld, dat er een bepaalde 
structuur is aangebracht in de wijze 
waarop de gegevens op de kaart zijn 
geschreven. Het is niet chaotisch ge¬ 
beurd met een willekeurig volgorde 
van de diverse kenmerken op de 
kaart, maar voor ieder gegeven is een 
apart vakje aanwezig, dat steeds op 
dezelfde plek op de kaart te vinden is. 
Het ging ons in dit gevai om de verge¬ 
lijking van de ouderwetse kaartenbak 
met een - modern - computerbestand. 
Het zal daarbij voor iedereen duidelijk 
zijn, dat het niet erg moeilijk is, om de 
computer (samen met diskdrive of 
cassetterecorder) te gebruiken om de 
gegevens die op de verschillende 
kaarten worden bewaard te kunnen 
bewerken. Maar daarbij is de structuur 
van het bestand een belangrijk onder¬ 
deel. 


Structuur 

Het intypen van een hele serie gege¬ 
vens, van bijvoorbeeld een adressen¬ 
bestand, zal voor niet al te veel proble¬ 
men zorgen. Wel is het daarbij nodig, 
zoals uit het voorbeeld met de kaar¬ 
tenbak blijkt, dat deze gegevens in 
een zekere structuur worden ingé¬ 
bracht en bewaard. Daardoor wordt 
het voor de computer erg gemakkelijk 
om de gegevens later op een korrecte 
manier te kunnen lezen en bewerken. 
En dat is precies wat we willen. De 
structuur in het bestand is dus een erg 
noodzakelijk gegeven. We zullen ons 
daarom bezig houden met de vraag 
hoe een structuur is aan te brengen in 
een bepaald bestand. 

Vooraf nog een beetje theorie, waarbij 
we de kaartenbak als leidraad zullen 
gebruiken. We zagen in de kaarten¬ 
bak een hele serie kaarten, die stuk 
voor stuk de gegevens van één adres 
bevatten. In computertermen vertaald 
noemen we de kaartenbak een data¬ 
bestand en een dergelijke kaart met 
de volledige serie gegevens een re¬ 
cord. Deze beide termen zijn stan¬ 
daard in de wereld van de informatica, 
en het is dan ook noodzakelijk om 
goed te weten wat ze betekenen. Er 


komt nog een term bij, namelijk het 
veld. Als je het voorbeeld goed be¬ 
kijkt, zal het niet moeilijk te raden zijn, 
waar een veld voor staat. Dat is de 
data die is ingevoerd bij de verschil¬ 
lende kenmerken, nummer, naam, 
straat, postcode, plaats etcetera, op 
de kaart in de bak. 

Als we het geheel bekijken, dan zien 
we een structuur ontstaan zoals in 
schema 1 is uitgewerkt. 

Op deze manier kunnen we een echte 
database bouwen, niet alleen in een 
kaartenbak, maar ook in de computer. 
Het maakt daarbij in ons geval nog 
weinig uit, of we de opslag op disk of 
tape sequentieel of relatief laten ver¬ 
lopen. Omdat we de database, die we 
in Basic nog steeds aan het program¬ 
meren zijn, zowel voor cassette- als 
diskgebruik geschikt willen maken, 
hebben we gekozen voor een sequen¬ 
tiële opslag. We zullen hier in het ver¬ 
volg van dit artikel nog wel op terug 
komen. 


Adressenbestand 

Nu iets over de structuur die we in het 


KAARTENBAK 

DATABESTAND 

kaart 1 

record 1 

kenmerken 

velden 

nummer 

nummer 

naam 

naam 

straat 

straat 

postcode 

postcode 

plaats 

plaats 

kaart 2 

record 2 

kenmerken 

velden 

nummer 

nummer 

naam 

naam 

straat 

straat 

postcode 

postcode 

plaats 

plaats 

kaart 3 

record 3 

kenmerken 

velden 

nummer 

nummer 

naam 

naam 

straat 

straat 

postcode 

postcode 

plaats 

plaats 

kaart 4 

record 4 

kaart 5 

record 5 

kaart 6 

record 6 

enz. 

enz. 


Schema 1: de structuur van een 


kaartenbak 
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programma 'DATABASE’ hebben toe¬ 
gepast. Als je een oude Commodore- 
Info openslaat, kun je in de listing dui¬ 
delijk de structuur van ons bestand 
teruglezen. Ook de diverse variabe¬ 
len, die we voor de verschillende re¬ 
cords en velden gebruiken vallen 
daaruit te halen. Voor de duidelijkheid 
zullen we een paar delen uit de listing 
lichten en nog eens bekijken; 

10 REM Menu gestuurde 
DATABASE 

20 REM voor adressenbestand 

30 REM Commodore-Info 1987 

40 REM 870601/v.1.05 
100 REM initialisatie 
110 REM 

120 TT=0 : REM totaalaantal 
records 

130 DIM A$(300,5) : REM aantal 
records max. 

In de kop van het programma zien we 
de tweedimensionale array A$(). De¬ 
ze wordt in het programma gebruikt, 
om de volledige gegevens van ons 
bestand in het computergeheugen te 
kunnen bewaren. Zoals in regel 130 te 
zien is, hebben we ruimte gedefini¬ 
eerd voor maximaal 301 adressen, die 
ieder over 6 velden kunnen beschik¬ 
ken. Daarbij bewaart A$(0,0) veld 
nummer 1 van record 1, terwijl bijvoor¬ 
beeld A$(34,4) veld nummer 5 van 
record 35 aangeeft. 

De verschillende velden hebben we 
voor de duidelijkheid van de listing in 
DATA-regels weggezet; 

420 DATA "Naam 

421 DATA "Voorletters 

422 DATA "Straat en nummer " 

423 DATA "Postkode 

424 DATA "Woonplaats 

425 DATA "Telefoon 

We zien daarbij precies 6 velden, die 
altijd terug grijpen op de array A$(), en 
dan ook nog op dezelfde plaats in de 
tweede dimensie van de array. Daar¬ 
mee hebben we de structuur van ons 
bestand op een redelijke wijze voor 
elkaar. 


Sequentieel bestand 

Zoals we eerder hebben opgemerkt, 
is het ‘sequentiële’ bestand weliswaar 
correct wat de structuur betreft, maar 
we kunnen deze wijze van opslag niet 
gebruiken, om met de zogenoemde 
random-access een bepaald record 
terug te lezen. Om dit te kunnen be¬ 
grijpen, zullen we onze toevlucht ne¬ 
men tot een voorbeeld. De sequen¬ 
tiële wijze van opslag houdt in, dat alle 
gegevens, records en velden achter 
elkaar op disk of tape worden gezet. 


TRACK 

SECTOR 

SECTOREN 

NUMMER 

NUMMER 

/TRACK 

1 - 17 

0 - 20 

21 

18 - 24 

0 - 18 

19 

25 - 30 

0 - 17 

18 

31 - 35 

0 - 16 

17 



De scheiding tussen de verschillende 
velden en records kan daarbij worden 
aangegeven met een carriage return 
(CHR$(13) of bijvoorbeeld een kom¬ 
ma. Dit scheidingsteken kan in veel 
gevallen door de programmeur wor¬ 
den gekozen, maar moet natuurlijk 
niet voorkomen in een veld zelf, an¬ 
ders gaat de zaak fout. Een eenvou¬ 
dig bestand, met records die bestaan 
uit naam, straat, plaats kan er weg¬ 
geschreven bijvoorbeeld zo uit zien; 

Gerritsma,Dorpsstraat 45, 
Groningen,Bruintjes,Bosweg 15, 
’s-Graveland,Bos,Klap 6,Twlst, 
Heertjegrootmans, 

Asch van WIjckstraat 34, 
Heerhugowaard. 

We zien daarbij direct, dat de verschil¬ 
lende velden en dus ook de records 
niet allemaal even lang zijn. Duidelij¬ 
ker wordt dat nog, als we de records 
onder elkaar zetten; 

#1 Gerrltsma,Dorpsstraat 45, 
Groningen, 

#2 Bruintjes,Bosweg 15, 
’s-Graveland, 

#3 Bos,Klap 6,Twist, 

#4 Heertjegrootmans,Asch van 
Wijckstraat 34, 
Heerhugowaard. 

Als we gaan tellen, blijkt, dat record 1 
een lengte heeft van 32 karakters, re¬ 
cord 2 bevat er 30, nummer 3 heeft 
slechts 14 karakters, terwijl record 4 
maar liefst 51 letters bevat. 

Als we dezelfde telling uitvoeren op de 
diverse velden, zien we dat daar nog 
meer verschillen optreden. De hier ge¬ 
toonde manier laat zien, hoe de ver¬ 
schillende records, gescheiden door 


komma’s, op tape of disk als sequen¬ 
tieel bestand (achter elkaar) kunnen 
worden weggeschreven. Daarbij be¬ 
gint record 1 op positie (offset) 0 in het 
bestand, record 2 begint op 0-i-32= 
pos. 32, record 3 op 0 -i-30h- 32= 62, 
record 4 begint op pos 0-i-30h-32h-14= 
76 terwijl record 5 een ofset krijgt van 
0-i-30-(-32+14-1-51 =127. Je ziet direct, 
dat er in een sequentieel bestand 
geen pijl op valt te trekken waar het 
volgende record precies begint. Laat 
staan dat het voor de verschillende 
velden in een record het geval zou 
zijn. 

Daardoor zullen we om record 4 te 
kunnen lezen het hele bestand vanaf 
record 1 moeten lezen en eventueel 
weggooien om nummer 4 in het ge¬ 
heugen te kunnen halen. Nu is dat bij 
een dergelijk klein bestand niet erg, 
want het gaat nogal snel, maar als we 
praten over 10.000 adressen wordt 
dat natuurlijk anders. Voor grote be¬ 
standen kunnen we dan ook echt niet 
meer volstaan met een sequentiële 
opslag zoals die hierboven is om¬ 
schreven. Ook als we een wijziging in 
record 3 aan willen brengen, kunnen 
we niet volstaan met het tussenvoe¬ 
gen in een sequentieel bestand. Stel 
dat door de mutatie de lengte van re¬ 
cord 3 wordt vergroot van 14 naar 26 
letters. Dan zou -voorzover het techni¬ 
sch mogelijk is op tape- record 4 voor 
een gedeelte door de verlengde re¬ 
cord 3 worden overschreven, en daar¬ 
door niet meer leesbaar zijn, afgezien 
van de overig problemen. Hieruit blijkt, 
dat er nogal wat problemen komen kij¬ 
ken bij deze vorm van data-opslag, 
ware het niet, dat deze manier veruit 
de eenvoudigste vorm is om te pro¬ 
grammeren. 

Databestand SEQ 

Het Werken met diskdrive en databe¬ 
standen is niet veel anders, dan de 
werkwijze met Basic-programma’s en 
disk. In de vorige les hebben we hier 
voor tape-gebruik het nodige over ge¬ 
zegd, voor de diskdrive ligt het niet 
veel anders. Volledigheidshalve zul¬ 
len we ons geheugen over de bestan¬ 
denprocedure nog wat opfrissen. 

We maken bij het wegschrijven van 
gegevens echter geen gebruik van de 
disk-SAVE en LOAD-opdrachten, om¬ 
dat we met een andere manier van 
schrijven en lezen bezig zijn. De wijze 
waarop DATA en disk met elkaar 
communiceren kun je wat dit betreft 
het beste vergelijken met de manier 
waarop de Commodore met het vi¬ 
deoscherm (en toetsenbord) omgaat. 
We weten allemaal, dat met hulp van 
de opdrachten PRINT, GETen INPUT 
van alles op het scherm kan worden 
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gezet en vanaf het toetsenbord kan 
worden ingelezen. Welnu, de manier 
waarop dit met externe apparaten als 
cassetterecorder en diskdrive wordt 
verzorgd is in feite niet anders. Het 
enige verschil is het device-nummer 
dat voor ieder apparaat, dus ook voor 
scherm en keyboard, anders is. Om¬ 
dat er in de meeste gevallen commu¬ 
nicatie tussen computer en VDU 
(scherm/keyboard) plaatsvindt, heeft 
men dit device als default genomen, 
en alle print-opdrachten gaan daarom 
automatisch naar device nummer 3, 
wat het nummer is van het video¬ 
scherm. Voor alle andere apparaten 
moeten we in ons programma een 
apart device aanspreken, en een 1/0 
kanaal openen. Dit klinkt een heel 
stuk ingewikkelder dan het in werke¬ 
lijkheid is, maar je moet wel eerst we¬ 
ten hoe het allemaal precies in z’n 
werk gaat. Zeker omdat het aantal ka¬ 
nalen dat op een bepaald moment 
open kan zijn, niet bij één blijft. In to¬ 
taal kunnen er 16 kanalen gelijktijdig 
geopend zijn, die alle 16 naar verschil¬ 
lende devices kunnen wijzen. Zo ken¬ 
nen we voor de printer (device 4) een 
kanaal, terwijl er ook meerdere kana¬ 
len open kunnen zijn voor cassette en 
diskdrive. Om dit allemaal uit elkaar te 
kunnen houden, geven we bij het ope¬ 
nen ieder kanaal een apart nummer of 
adres. Met hulp van dit ‘Logical 
Address’ geven we later aan naar 
welk kanaal een bepaalde variabele 
moet worden geprint. Het werken met 
deze kanaal-adressen is een goede 
manier om de verschillende kanalen 
uit elkaar te kunnen houden. 

De algemene werkwijze van het ver¬ 
sturen van berichten c.q. data naar 
een extern apparaat is als volgt: 

OPEN file, met kanaalnummer, 
apparaatnummer en 
secundair adres. 

PRINT kanaalnummer,variabelen 
CLOSE kanaalnummer 

Het secundaire adres dient bij disk- 
communicatie, in tegenstelling tot dat 
van de cassette, in feite nergens toe. 
Wel wordt er door de Commodore on¬ 
derscheid gemaakt tussen SA’s die 
hoger zijn dan 127 en alles wat er 
onder valt, maar dat is te complex 
voor dit artikel. Alleen SA 15 maakt 
hierop een uitzondering. Bij het geven 
van een bepaald ‘secundair adres’ 
moet je er alleen om denken, dat er 
geen verschil zit tussen lezen en 
schrijven naar de disk. 

Schrijven 

Laten we maar eens een klein pro¬ 
gramma schrijven, waarmee we een 


serie gegevens naar de cassette weg¬ 
schrijven. 

10 REM Maken data bestand op 
disk 

20 REM Sequentieel bestand 
30 REM Met numerieke variabele 
90 

100 REM Openen kanaal 
110 OPEN 2,8,2,'TEST, 

SEQ,WRITE" :REM Openen 
KANAAL=2, DEVICE=8, 

SA=2, TEST=naam 
115 REM Let op toevoeging 
SEQ,WRITE 
120 F0RI = 1T0 256 
130 PRINT I: REM Print op scherm 
140 PRINT#2,I :Rem print naar 
kanaal 2 
150 NEXTI 

160 CLOSE 2 :REM Sluiten 
KANAAL 2 
200 END 

Dit programma schrijft zowel op het 
scherm als naar de disk 256 getallen 
weg. De naam van het DATA-bestand 
op de disk directory is in dit geval 
‘TEST’. In tegenstelling tot de tape-lis- 
ting, zien we dat tussen de aanha¬ 
lingstekens de toevoeging: ‘SEQ, 
WRITE’ is mee gegeven, waardoor 
we aan de computer duidelijk maken, 
dat het een sequentieel bestand be¬ 
treft, wat we willen aanmaken en vol¬ 
schrijven. 

Na de l-lus wordt in regel 160 het ka¬ 
naal naar device 8, de diskdrive, num¬ 
mer 2 weer afgesloten. Naast de 
OPEN opdracht in regel 110 vinden 
we in regel 140 : PRINT#2,I. Deze 
regel, die volledig moet worden inge¬ 
typt, dus geen vraagteken (?) gebrui¬ 
ken voor het woordt PRINT !!!, geeft 
aan dat de variabele I moet worden 
geprint naar kanaal 2, en niet naar het 
scherm. Na de CLOSE-opdracht in re¬ 
gel 160 wordt kanaal 2 weer afgeslo¬ 
ten en staat bestand ‘TEST’ op de 
disk. Dan verschijnt ook READY op 
het scherm, om aan te geven, dat het 
programma is afgerond. We kunnen 
dit nog even controleren, door de op¬ 
dracht : 

LOAD $,8, waarna bij het commando 
LIST de inhoud van de diskette op het 
scherm komt, waar we file TEST met 
extensie SEQ zullen aantreffen. 


Lezen 

Nadat we het voorgaande met succes 
hebben uitgevoerd, kunnen we nu 
overgaan tot het lezen van de weg¬ 
geschreven getallen in file TEST. Zorg 
dat de disk nog in de drive aanwezig 
is en gebruik het volgende program¬ 
ma om de weggeschreven gegevens 
weer te kunnen inlezen: 


10 REM Lezen data bestand van 
disk 

20 REM Sequentieel bestand 
30 REM Gebruik numerieke var. 
90 

100 REM Openen KANAAL 
110 OPEN 3,8,8,"TEST,SEQ, 
READ" :REM Openen 
KANAAL=3, DEVICE=8, 

SA=8, TEST=naam 
115 REM Let op : SEQ,READ 
120 INPUT#3,i :REM Lees van 
KANAAL 3 

150 PRINT I; REM Zet gelezen 
getal op scherm 
160 IFST = 0THEN 120 
170 CLOSE 3 :REM Sluiten 
KANAAL 3 
200 END 

Dit programma ziet er een beetje an¬ 
ders uit, dan het voorgaande. Het 
OPEN zetten van het kanaal naar de 
disk verschilt in zoverre, dat het SA 
(secundaire adres) gewijzigd is in 8, 
waarmee we willen aantonen, dat de 
keuze van een SA niet belangrijk is. 
Het feit, dat we willen lezen in plaat 
van schrijven, vinden we terug in de 
tekst, achter de filenaam in het ope- 
ningsstatement. Als regel 110 gelijk 
zou zijn aan dezelfde regel in het 
schrijfprogramma, dan zou er een 
diskfout zijn opgetreden, omdat file 
TEST reeds op de disk aanwezig is. In 
ieder geval wordt er dan niets gele¬ 
zen. 

In regel 120 treffen we nu een INPUT- 
opdracht aan, net als bij PRINT ge¬ 
volgd door #3. De Basic opdracht is 
geen combinatie van INPUT en #3, 
maar luidt echt INPUT#, met daarach¬ 
ter het betreffende filekanaal. De ge¬ 
lezen waarde, in dit geval numeriek, 
wordt weggezet in de variabele I, 
waarna deze op het scherm geprint 
wordt. INPUT houdt automatisch op te 
lezen bij het vinden van een ‘carriage 
return’ (CHR$(13)). Net als bij een 
normale PRINT opdracht hebben we 
een CHR$(13) weggeschreven bij het 
vorige programma, omdat we steeds 
een PRINT#3 hebben uitgevoerd zon¬ 
der als achtervoegsel een komma of 
puntkomma te hebben gebruikt. Auto¬ 
matisch wordt dan ook naar disk en 
tape een carriage return geschreven. 
Vandaar dat de INPUT nu keurig 
steeds één getal naar binnen leest en 
op het scherm zet. 


Status 

Om te kunnen bekijken waar het einde 
van het bestand TEST zich bevindt, 
hebben we in ons geval verschillende 
mogelijkheden. We weten bijvoor¬ 
beeld, dat er precies 256 getallen in 
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het bestand staan. Daarom zouden 
we hier voor het inlezen ook een lus 
kunnen gebruiken. Maar het zal zeker 
niet altijd het geval zijn, dat we vooraf 
het aantal gegevens weten, dat in een 
database zit. Bovendien hadden we 
bijvoorbeeld als eindvlag een negatief 
getal kunnen wegschrijven en tijdens 
het inlezen iedere keer het gelezen 
getal hebben kunnen testen op het al 
of niet kleiner dan nul zijn. Maar daar¬ 
mee beperken we ons tot het werken 
met uitsluitend positieve getallen, ook 
geen oplossing dus. Nu heeft de disk 
gelukkig zelf een oplossing. En dat is 
de status van de file/tapeunit. Deze 
STatus is één van de vaste, inge¬ 
bouwde variabelen in de Commodore. 
Het is een variabele die door de pro¬ 
grammeur alleen kan worden gele¬ 
zen. 

In ons lees-programma testen we 
slechts of ST nog altijd 0 is. Zolang dit 
het geval is, is alles in orde en kunnen 
we terug naar regel 120 om het vol¬ 
gende getal te lezen. 

Bereikt de leeskop op de disk het ein¬ 
de van het bestand, waar door de 
Commodore automatisch een end of 
file geschreven is tijdens het wegzet¬ 
ten van de data, dan wordt de varia¬ 
bele ST automatisch op een getal 
anders dan nul gezet, waardoor we in 
regel 170 het file afsluiten door 
CLOSE en ook de drive stopt. Zoals je 
op het scherm kunt zien, zijn alle ge¬ 
tallen keurig ingelezen van het disk- 
bestand TEST’. 


Strings 

We zullen hetzelfde bestand nog eens 
inlezen, nu niet in een numerieke va¬ 
riabele, maar met hulp van strings. 
Daartoe kun je het vorige programma 
met wat kleine wijzigingen gebruiken: 

10 REM Lezen data bestand van 
disk 

20 REM Sequentieel bestand 
30 REM Gebruik strings 
90 

100 REM Openen KANAAL 
110 OPEN 

1,8,2,"TEST,SEQ,READ" 

:REM Openen KANAAL=1, 
DEVICE=8, SA=2, 

TEST=naam 

120 INPUT#1,A$ :REM Lees van 
KANAAL 1 

150 PRINT A$ : REM Zet gelezen 
getal op scherm 
160 IFST = 0THEN 120 
170 CLOSE 1 ;REM Sluiten 
KANAAL 1 
200 END 

Zoals je ziet, zijn de numerieke varia¬ 
belen I vervangen door de stringvaria- 


bele A$. Ook op het scherm is dit te 
zien, door de andere layout van de ge¬ 
tallen, die nu immers als strings wor¬ 
den beschouwd, waardoor er geen 
ruimte wordt vrijgehouden voor een 
plus- of min-teken etcetera. Verder is 
er nog weinig veranderd. Maar we zul¬ 
len nu een ander bestand naar de ta¬ 
pe zetten, waarbij er ook alfanumerie- 
ken worden weggeschreven naar be¬ 
stand TEST. Daarvoor gebruiken we 
de volgende variant op onze listing: 

10 REM Maken data bestand op 
disk 

20 REM Sequentieel bestand 
30 REM Strings en numerieken 

90 

100 REM Openen KANAAL 
110 OPEN 

2,8,2,'TESTI ,SEQ,READ" 
:REM Openen KANAAL=2, 
DEVICE=8, SA=2, 
TEST1=naam 
120 F0RI = 1T0 256 
125 A$ = CHR$(I) 

130 PRINT I, A$ : REM Print op 
scherm 

140 PRINT#2,I, A$:REM Print naar 
KANAAL 2 
150 NEXTI 

160 CLOSE 2 :REM Sluiten 
KANAAL 1 
200 END 

Dit programma schrijft 2 keer zoveel 
gegevens naar de tape. Niet alleen de 
lus-teller, maar ook de ASCII-waarde 


als karakter wordt naar de disk ge¬ 
schreven. Daarmee zijn we zeker van 
een databestand, dat een mixture is 
van numerieke en string-variabelen. 
Om dit bestand terug te lezen moeten 
we het laatste LEES-programma ge¬ 
bruiken, waarbij de naam TEST moet 
worden veranderd in TEST 1, de listing 
die werkt met strings dus, want als we 
de numerieke versie hierop loslaten, 
dan krijgen we erg snel de foutmel¬ 
ding ‘DATA MISMATCH ERROR’, 
waarmee wordt aangeduid, dat er nu¬ 
merieke gegevens werden verwacht 
en een alfa-karakter werd gelezen, 
dat niet kan worden verwerkt. 


Protocol 

Bij het werken met databestanden is 
het in alle gevallen beter om uitslui¬ 
tend met stringvariabelen te werken. 
Hoewel er ruimtebesparend kan wor¬ 
den gewerkt met het toepassen van 
numerieke variabelen is de kans op 
lees- en schrijffouten hoger, terwijl 
ook de gebruiksmogelijkheden van 
numerieke data uiteraard geringer 
zijn. Het is daarom in de regel goed al¬ 
leen met stringvariabelen te werken in 
combinatie met data-bestanden. 

Als laatste voorbeeld geven we nu 
nog een listing waarbij het GET# com¬ 
mando is toegepast: 

10 REM Lezen data bestand van 
tape 

20 REM Sequentieel bestand 
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30 REM Stringvariabelen 
40 REM Met hulp van GET# 
opdracht 
90 

100 REM Openen KANAAL 
110 OPEN 2,8,2,’TESTI" ;REM 
Openen 

120 GET#2,A$ :REM Lees 1 
karakter van KANAAL 2 
150 PRINT A$;: REM Zet gelezen 
getal op scherm 
160 IFST = 0THEN120 
170 CLOSE 2 ;REM Sluiten 
KANAAL 2 
200 END 

Ook deze listing wijkt weinig af van de 
vorige. Let alleen op de puntkomma 
achter het PRINT-commando in regel 
150. Daardoor worden alle karakters 
achter elkaar op het scherm gezet. De 
‘RETURN’, die ook van de disk wordt 
gelezen, zorgt daarbij op de juiste 
plaats voor een nieuwe regel. GET# 
wordt vaak gebruikt als er geen enkel 
gegeven bestaat over de manier 
waarop de data in het bestand is op¬ 
gebouwd. We hebben hiermee de ma¬ 
nier van werken met sequentiële be¬ 
standen voldoende bekeken, denk ik. 


Relatieve bestanden 

Om dezelfde trucs uit te halen met re¬ 
latieve bestanden komt er wat meer 
kijken. Maar eerst zullen we moeten 
weten, wat een dergelijk bestand pre¬ 
cies inhoudt. Misschien helpt het, als 
je weet dat relatieve bestanden ook 
vaak worden aangeduid als ‘random 
access’ files, wat zoveel betekent als 
‘willekeurig te benaderen’. 

Eerder in deze les hebben we een 
serie records van verschillende leng¬ 
tes ingetypt, waarbij we zagen dat de 
offset van elk record anders was. Wil¬ 
len we daar toch een relatief bestand 
van maken, dan moeten we in feite al¬ 
leen zorgen, dat ieder record precies 
hetzelfde aantal Bytes bevat. Als je dit 
goed bekijkt, betekent het dus in feite, 
dat een relatief record, waarmee we 
veel sneller en efficiënter kunnen wer¬ 
ken, ook niet meer is dan een echt 
‘sequentieel’ bestand. Alleen de offset 
van ieder record moet kunnen worden 
berekend, zodat alle records bij rela¬ 
tieve bestanden even lang moeten 
zijn. We kunnen dit het simpelst oplos¬ 
sen, door bij ieder record de velden op 
te vullen met spaties, tot ze de juiste 
lengte hebben gekregen. 

Voor dat we zoiets kunnen gaan doen, 
zullen we onszelf een beperking moe¬ 
ten opleggen, waar het de maximale 
lengte per veld of per record betreft. 
Daar hebben we bij sequntiële be¬ 
standen weinig mee te maken, omdat 
het niet uitmaakt hoe lang een be¬ 


paald record wordt. Ook de ruimte die 
een relatief bestand op disk inneemt is 
minder economisch, omdat er nogal 
wat nutteloze spaties in zullen voorko¬ 
men om de records op juiste lengte te 
brengen. 

Als we het helemaal echt zouden wil¬ 
len doen, moeten we uiteraard per 
veld een maximum lengte zetten, 
maar in principe komt het voor de 
huis-, tuin- en keuken toepassingen in 
de Commodore op hetzelfde neer, als 
we per record een evenlang record 
aanhouden, waarin de lengte van de 
velden afzonderlijk er niet toe doet. De 
velden kunnen blijvend gescheiden 
worden door komma’s. 

Hoede records er voor een relatief be¬ 
stand uit komen te zien zie je hieron¬ 
der. in plaats van spaties hebben we 
een liggend streepje gebruikt om ze 
aan te geven. Je kunt daardoor goed 
zien, dat ze allemaal even lang gewor¬ 
den zijn. 


REL. bestand 

In tegenstelling tot de cassettetape, 
kunnen we op de disk wel midden in 
een bestand ‘prikken’ met de lees/- 
schrijfkop, waardoor het mogelijk 
wordt om midden in een relatief (ran¬ 
dom access) bestand te lezen en te 
schrijven, zonder daarbij het hele be¬ 
stand te hoeven dupliceren, zoals dat 
bij sequentiële wijzigingen nodig is. 
Commodore heeft in eerste instantie 
helaas niet al te veel met dit soort mo¬ 
gelijkheden gerekend, waardoor het 
bij de eerste versies Basic en BIOS 
van de diskdrive niet of nauwelijks 
mogelijk is om met een dergelijk be¬ 
standstype te werken. Vanaf de busi- 
ness-machines 8032 en ook de C-128 
kunnen we met Basic 4.0 wel aan het 
werk met geavanceerde opdrachten 
als DOPEN, RECORD# etc, waarmee 
we het werken met relatieve bestan¬ 
den tot een peuleschil maken. Als 
voorbeeld een korte listing zonder uit¬ 
leg, waarmee van bestand ‘REL- 
TEST’ in één keer 100 records wor¬ 
den weggeschreven op de disk: 

10 REM voorbeeld Basic 4.0 
REL.BESTAND schrijven 
90 

100 DOPEN#2,"RELTEST",D0,L20 
:REM Lengte record=20 
110 FORI=1TO100 
120 RECORD#2,(l) :REM Zoek 
record 


130 

140 

150 

160 

170 

180 


****************** 


S$= "RECORD NR + STR$(I) 
S$+LEFT${" 

********",20-LEN(S$) 
PRINT#2,S$ 

NEXTI 
DCLOSE 
END 


Regel 130 en 140 zorgen samen dat 
er vulling komt voor de records van 20 
posities lang. In plaats van spaties 
hebben we gebruikt voor het op¬ 
lengen. 

Het teruglezen, voor de verandering 
vanaf record 100, gaat nagenoeg 
identiek: 


10 REM voorbeeld Basic 4.0 
REL.BESTAND lezen 
90 

100 DOPEN#2,"RELTEST",DO 
:REM Lengte is bekend 
110 FOR 1= 100 T01 STEP-1 
120 RECORD#2,(l) :REM Zoek 
record 

130 INPUT#2,S$ 

140 PRINT S$ 

160 NEXTI 
170 DCLOSE 
180 END 


Vooral het feit dat de records vanaf 
nummer 100 kunnen worden terug¬ 
gelezen geeft hier een duidelijke illus¬ 
tratie van de capaciteiten die schuilen 
in relatieve bestanden. Maar ook 
Basic 4.0 en hoger hebben nogal wat 
gemak opgeleverd bij het program¬ 
meren van deze listings, omdat we 
gebruik gemaakt hebben van speciale 
opdrachten, die we op geen enkele 
kale C-64 tegenkomen. Willen we op 
dat type apparaat toch wat gaan doen 
met REL. bestanden, dan moeten we 
helaas uit een ander, complexer vaat¬ 
je gaan programmeren. 


C-64 Basic 

De Basic versie die ten tijde van de 
ontwikkeling van de C-64 gangbaar 
was voor Commodore is niet in staat 
zonder meer met relatieve bestanden 
aan het werk te gaan. 

Toch kunnen we bij de aansluiting van 
de juiste drive met kunst en vliegwerk 
aan de gang met relatieve bestanden. 
Als voorbeeld hebben we de listings 
van Basic 4.0 bewerkt voor alle on¬ 
gelukkige bezitters van wat eenvou¬ 
diger apparaten: 


#1 "Gerritsma,Dorpsstraat 45,Groningen- 

#2 "Bruintjes,Bosweg 15, 's-Graveland- 

#3 "Bos,Klap 6, Twist- 

#4 "Keertjegrootmans,Asch van Wijckstraat 34, Heerhugowaard- 
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10 REM voorbeeld Basic 2.0 
REL.BESTAND schrijven 
90 

100 OPEN 2,8,2,"RELTEST,L"+ 
CHR$(21) .REM Lengte 
record=20+1 

105 OPEN 15,8,15...:REM Apart 
KANAAL 15 !! 

110 FORI=1TO100 
120 PRINT#15,"P" + CHR$(2) + 
CHR$(I) + CHR$(0) + 

CHR$(1) :REM Record 
130 S$= "RECORD NR :" +STR${I) 

^0 g^^^^p^^^l****************** 

*******",20-LEN(S$) 

150 PRINT#2,S$ 

160 NEXT 
170 CLOSE 2 
175 CLOSE 15 
180 END 

Hoewel veel ingewikkelder, en moei- 
lijker te onthouden, kan met deze syn- 
tax ook voor de C-64 een fatsoenlijk 
relatief bestand op disk worden gezet. 

Het lijkt me goed, om het OPEN state¬ 
ment even onder de loep te nemen. 
Zoals je ziet hebben we twee kanalen 
moeten openen om met relatieve be¬ 
standen te werken. Niet alleen kanaal 
2, maar ook kanaal 15, wat vanwege 
z’n SA (15) een erg bijzondere functie 
heeft in de communicatie tussen com- 
puter(programma) en diskdrive. Het is 
een zogenoemd ‘Fout-kanaal’. Er zou 
nog een heleboel over ‘channel15’ te 
vertellen zijn, maar daarvoor hebben 
we op dit moment geen mogelijkhe¬ 
den. Je moet dit SA voor het moment 
beschouwen als een soort politie¬ 
agent, waarbij je eigenlijk alleen moet 
zorgen dat SA 15 niet mag worden 
vervangen door een ander adres. Via 
dit kanaal worden de aanvullende op¬ 
drachten voor de relatieve bestanden 
doorgegeven aan de diskdrive. Het is 
zelfs zo, dat ook de ‘geavanceerde’ 
Basic 4.0 opdrachten, als DOPEN, 
RECORD, DIRECTORY etcetera al¬ 
lemaal met hulp van SA 15 in het 
Commodore-interpreter gedeelte wor¬ 
den vertaald naar dit type opdrachten, 
zoals we die in de voorgaande listing 
aantreffen. 

Kanaal 15 wordt met OPEN 15,8,15 in 
regel 105 open gezet. 

Daarvoor is in regel 100 het ‘echte’ re¬ 
latieve bestand geopend door de op- 
drachtreeks: OPEN 2,8,2,"REL- 
TEST,L"+CHR$(21). Hiermee wordt 
aangegeven, dat bestand RELTEST 
op drive 0 moet worden geopend, met 
een recordlengte "L"+CHR$(21). Dit 
komt neer op recordlengte 20 + 1 voor 


de carriage return = 21. We kunnen 
naast de RETURN dus 20 karakters 
kwijt in het record. 

Via regel 120 zoeken we in het be¬ 
stand het goede record, door de op¬ 
dracht : PRINT#15,"P" + CHR$(2) + 
CHR$(I) + CHR$(0) + CHR$(1). De 
enige variabele die we tegenkomen in 
deze serie karakterstrings is I, waar¬ 
mee het recordnummer in het bestand 
wordt aangegeven. Voor de rest wij¬ 
zigt er niets in deze regel, en ze hoeft 
daarom dus ook maar één keer uit het 
hoofd te worden geleerd. 


Lezen C-64 

Uiteraard wil je ook kunnen kontrole- 
ren, of de gegevens werkelijk (relatief) 
zijn weggezet op de disk. Met dat doel 
hebben we het schrijfprogramma om¬ 
gewerkt, zodat het hele scala met de 
volgende listing wordt gecompleteerd: 

10 REM voorbeeld Basic 2.0 
REL.BESTAND lezen 
90 

100 OPEN2,8,2,"RELTEST":REM 
LENGTE bekend 

105 OPEN 15,8,15...:REM APART 
KANAAL 15 !! 

110 INPUT "RECORDNUMMER 
(1-100/0=stop)";l 
115 IF I = 0 THEN 170 :REM END 
120 GOSUB200 ; REM SPLITS I 
130 PRINT#15,"P" + CHR$(2) + 
CHR$(RL) + CHR$(RH) + 
CHR$(0) + CHR$(1) :REM 
RECORD 
140 INPUT#2,S$ 

150 PRINT S$ 

160 GOTO 110 
170 CLOSE 2 
175 CLOSE 15 
180 END 
190 : 

200 REM SUBROUTINE 

210 REM Uitrekenen recordbytes 


220 REM RL en RH vanaf I 
230 RH=l/256 :REM HI-BYTE I 
240 RL=I AND 255 : REM 

LO-BYTE I 
250 RETURN 

We hebben de listing ook aangepast 
door in plaats van de loop nu aan de 
gebruiker te vragen welk recordnum¬ 
mer er moet worden gelezen. Denk er 
om, dat in deze eenvoudige listings 
niets wordt gedaan aan het testen van 
de diskdrive. Geef je bijvoorbeeld als 
record ‘150’ in, dan leest de drive op 
de disk in dit bestand niets goeds, om¬ 
dat record 150 niet bestaat. Verder 
kun je deze met deze serie listings fat¬ 
soenlijk aan de slag om je eigen ap¬ 
plicaties te verwerken. 

In de volgende aflevering zullen we de 
informatie met betrekking tot tape en 
disk eindelijk verwerken in ons eigen 
database programma, zodat we kun¬ 
nen beschikken over een mooi afge¬ 
rond pakket. Je kunt natuurlijk met de¬ 
ze kennis zelf ook alvast aan de slag. 

Sterkte. 

Jan Bodzinga 


Abonnement op dit 
blad? 


Bel (gratis): 
06-0224222 


elke dag tot 20.30 
(ook in het weekend) 
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Rob Goudriaan bespreekt weer enkele klassiekers onder de computerspelletjes voor 
de Commodore 64. Sommige van deze toppers zijn nog gewoon in de winkel te koop, 
naar anderen zult u moeten zoeken. 


OUD VAN GOUDriaan 


Gastel Is of Doctor 
Greep. 

In dit grafische adventure-spel in de 
vrij klassieke kasteeel-opzet bent u 
een gevangene. De boosdoener is 
Doctor Greep, uw aartsvijand. Het 
grote voordeel is dat u zelf mag kiezen 
in welk van zijn kastelen u gevangen 
zit. In het kasteel aangekomen wilt u 
natuurlijk zo gauw mogelijk proberen 
te ontsnappen. Daarvoor moeten vele 
hindernissen overwonnen worden. 
Alle kastelen bestaan uit diverse ka¬ 
mers en iedere kamer heeft zijn eigen 
specifieke hindernissen. Een aantal 
deuren gaan niet zo maar open, er 
moet soms eerst naar een sleutel wor¬ 
den gezocht, de kleur van de sleutel 
stemt overeen met de kleur van de 
deur. Zoals een goed kasteelheer be¬ 
taamt laat hij zijn gevangenen niet zo 
maar ontsnappen. Er wordt gebruik 
gemaakt van de meest moderne be¬ 
wakingsapparatuur. 

Telkens bij het verlaten van een ka¬ 
mer verschijnt er een plattegrond met 
daarop een knipperend pijltje. Hieraan 
is te zien waar u bent en wat de rich¬ 
ting is die gevolgd moet worden. Eén 
van de moeilijkere hindernissen is de 
elektrisch geladen bol. Deze richt blik¬ 
semstralen naar beneden en een aan¬ 
raking is absoluut dodelijk. Er zijn een 
aantal schakelpanelen waarmee deze 
bollen zijn te vernietigen dan wel zijn 
te verplaatsen naar een hoek waar je 
niet meer hoeft te zijn. Het kan zijn dat 
een kamer meerdere keren moet wor¬ 
den betreden voor een sleutel be¬ 
machtigd is, of een uitgang kan wor¬ 
den bereikt. Een teleporteermachine 
is in staat je te verplaatsen naar een 
gekleurde bol, en kan dus een prettig 
hulpmiddel zijn. Kamers met valluiken 
zijn erg gevaarlijk, zij zijn open of dicht 
te schuiven met een schakelaar die 
zich ook in die kamer bevindt. Behalve 
elektrische bollen, teleporteer-machi- 
nes en valluiken lopen er ook nog 
twee soorten vreemde wezens rond. 
De eerste soort is het gevaarlijkst. Zij 
kunnen trappen lopen en zich langs 
glijstangen naar beneden laten zak¬ 
ken. Zij komen in beweging zodra je 


langs hun schuilplaats loopt. Zij zijn 
vast te zetten tussen twee valluiken of 
lok ze naar de elektrische bollen want 
ook zij kunnen niet tegen de stralen. 
Het tweede soort is veel minder ge¬ 
vaarlijk doordat ze minder bewegelijk 
zijn. Ze komen pas tevoorschijn als 
hun symbool wordt aangeraakt. Een 
trap op of af lopen is voldoende om ze 
kwijt te raken. Ook dit soort kan niet 
tegen de stralen en valluiken. Schuif¬ 
deuren zijn een probleem omdat ze 
maar acht tellen open blijven, dus na 
het aanraken van de schakelaar is het 
rennen geblazen. En of het dan nog 
niet genoeg is, zijn er ook nog kamers 
die met een laserkanon worden be¬ 
waakt, dat schiet op alles wat be¬ 
weegt. Na dit alles zijn de lopende 
banden kinderspel, zij zijn op een een¬ 
voudige manier uit te schakelen of te 
ontwijken. Ontsnappen is dus niet ge¬ 
makkelijk. Dit is één van de weinige 
spelen die met twee spelers kan wor¬ 
den gespeeld, waarbij u elkaar niet 
tegenwerkt maar juist helpt. Zeker bij 
het afleiden van de vreemde wezens 
en het vastzetten van een kanon. Het 
vinden van voldoende sleutels opent 
de weg naar buiten. 

Bump’n Jump 

Autoracen is al snel in de vorm van 
videospelletjes op de buis gebracht 
met Atari GP en Nintendo-titels als 
klassiekers. Het is niet makkelijk een 
keus te maken uit het grote aanbod in 
dit genre. Bump ’n Jump viel op door 
de wat ruigere aanpak. Bij de meeste 
spelen is het passeren van een aantal 
tegenspelers voldoende om het spel 
te winnen. Bij dit spel is dit niet nodig, 
de opdracht is: ram ze van de weg, 
plet ze tegen het asfalt, spring boven 
op ze, kortom hoe gekker hoe beter. 
Kijk wel uit, wie een kuil graaft voor 
een ander, die.Eenvoudig rond¬ 

jes rijden is er dus niet bij. 

Het lijkt wel of er een orkaan over het 
circuit heeft gewoed. Alle bruggen zijn 
venwoest, bermen zijn niet meer recht 
maar zeer grillig en dus verradelijk. De 
tegenstanders lijken hier helemaal 
geen moeite mee te hebben. 


Wegversmallingen komen op de 
vreemdste plaatsen voor en zijn zeer 
gevaarlijk. Het spel eist veel van het 
reaktievermogen doordat er op de 
meest verrassende momenten moet 
worden gesprongen. Tegenstanders 
hoef je niet van de weg te rijden, pas¬ 
seren mag ook maar het geheel wordt 
daardoor wel veel moeilijker. Dit spel 
blijft op een onverklaarbare manier 
trekken, terwijl de opzet eenvoudig en 
zelfs saai is. De aantrekkingskracht 
ligt vooral in het feit dat je veel agres¬ 
sie in dit spel kwijt kunt. 

Miner 2049 / Bounty Bob 

Alweer een klassieker, één van de 
eerste klimspellen. Als mijnwerker 
speel je Bounty Bob, je opdracht is de 
mijn te reddden van een zekere on¬ 
dergang. Onderweg kom je natuurlijk 
allerlei gespuis tegen dat probeert je 
opdracht te doen mislukken. Iedere 
kamer waar Bounty Bob komt bestaat 
uit verschiliende verdiepingen, ver¬ 
bonden met ladders, glijbanen en/of 
liften. Verder is het mogelijk om over 
niet te grote afstanden heen te sprin¬ 
gen. Zelfs kun je door je een stukje te 
laten vallen een (beperkte) afstand 
overbruggen. Alleen door ervaring is 
deze afstand te bepalen en door scha¬ 
de en schande wordt men wijs. 



Transporteerhokjes zijn ook te gebrui¬ 
ken om je te verplaatsen. De bedoe¬ 
ling is dat Bounty Bob over alle vloer¬ 
delen loopt. Dit is te kontroieren om¬ 
dat de vloerdelen waar over gelopen 
is van kleur veranderen. Allerlei 
vreemde wezens proberen dit te ver- 
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hinderen, gelukkig staat hij niet geheel 
machteloos tegen over deze mon¬ 
sters. Er overheen springen kan, maar 
ook vernietigen is geen probleem. 
Speciaal voor dit doel bevindt zich in 
elke kamer mijnwerkersgereedschap. 
Pak je zo’n stukje gereedschap dan 
verandert eenn monster een paar se¬ 
conden in een vriendelijk mannetje. 
Op dit moment kun je ze aanraken en 
verdwijnen ze, zodat je geen last meer 
van ze hebt. Ook de bloempot met 
bloemen heeft dit effect, al zie ik dit 
niet direct als mijnwerkersgereed¬ 
schap. Het spel wordt gestart met 3 
levens, er kunnen geen levens meer 
worden bijverdiend. Het is dus zaak 
zeer voorzichtig te werk te gaan. 

Jungle Hunt 

Na lang gespaard te hebben ga je met 
je vriendin op safari in de diepste oer¬ 
wouden van Afrika. Volgens geruch¬ 
ten zijn er zelfs nog kannibalen. Om je 
vriendin niet te zenuwachtig te maken 
heb je dat natuurlijk niet verteld. Die 
mensen kom je toch niet tegen (denk 
je). Fout natuurlijk, jullie zijn net in het 
oerwoud als je vriendin wordt gevan¬ 
gen genomen door zo’n stelletje 
woestelingen. Aangezien je maar één 
allerliefste vriendin hebt, probeer je 
haar te redden. Ze is veel te lief en te 
mooi om als hoofdschotel voor het 
plaatselijk opperhoofd dienst te doen. 
Een woeste tocht door het oerwoud is 
het gevolg. De eerste hindernis is een 
bijna ondoordringbaar woud. De eni¬ 
ge manier om je te verplaatsen is het 
slingeren van boomtak naar boomtak. 
Speciaal voor dit doel hangen er over¬ 
al lianen.Na een paar minuten ben je 
een volleerde tarzan. De tweede hin- 
denis is al lastiger. Een rivier vol kro¬ 
kodillen en een groot soort krab. Al¬ 
leen zwemmend is deze hindernis te 
nemen. Gauw het safarikostuum uit 
en de weg vervolgen. Krokodillen kun 
je beter ontwijken door onder ze door 
te zwemmen. Hou bij dit alles goed de 
zuurstofvoorraad in de gaten, niets is 
vervelender dan onder een krokodil 
zonder zuurstof te zitten. 

Na het overwinnen van deze hindernis 
zien de kannibalen in dat je toch ster¬ 
ker en/of slimmer bent dan ze ver¬ 
wacht hadden. Terwijl jij de heuvel be¬ 
gint te beklimmen gooien zij uit alle 
macht allerlei stenen naar beneden. 
De grote vraag blijft open: lukt het je 
om je vriendin te redden uit de tanden 
van de kannibalen of vormen jullie sa¬ 
men de hoofdschotel van vanavond?? 


Beach Head 

Een spel dat zeker niet in deze rubriek 
mag ontbreken is het overbekende 


Beach Head. Dat dit spel is aange¬ 
slagen blijkt wel uit het feit dat ook 
beach head 2 is verschenen, beide 
versies zijn nog volop verkrijgbaar. De 
opzet van dit spel is een aanvals- 
macht aan land te zetten en uitein¬ 
delijk een fort op de vijand te verove¬ 
ren. Jij voert het commando over tien 
schepen. De eerste keus die gemaakt 
moet worden, stuur je de schepen 
door de smalle zeestraat of gaan ze 
direkt door naar de vijandelijke sche¬ 
pen. Bij de keus voor de zeestraat 
kom je in een binnenzee bezaaid met 
zeemijnen, volledig omgeven door 
rotsen en voorzien van een automa¬ 
tisch afweersysteem dat onafgebro¬ 
ken torpedo’s afvuurt. Eén voor één 
moeten jouw schepen deze hindernis¬ 
sen passeren. Dan wordt er een luch¬ 
taanval ingezet. Dit is een zeer realis¬ 
tische gevechtssituatie. De vlieg¬ 
tuigen stijgen op van een vliegdek¬ 
schip dat buiten schootsveld ligt. 

Zij gieren op je af met ratelende 
boordkannonen. Denk bij dit spel om 
het geluisvolume, de buren zullen an¬ 
ders denken dat er een oorlog is uit¬ 
gebroken en hun bomvrije schuilkel¬ 
ders opzoeken. Af en toe zou je ach¬ 
ter je stoel willen wegkruipen als de 
kogels op je afkomen, maar daar win 
je natuurlijk niet mee. Lukt het je om 
het vliegdekschip uit te schakelen dan 
beginnen de andere schepen een 
bombardement. De schepen die deze 
invasie hebben overleefd kunnen dan 
aan hun eigenlijke missie beginnen. 
Zij kunnen hun ladingen aan wal bren¬ 
gen. Elk schip bevat twee tanks. Moei¬ 
zaam zoeken zij hun weg naar het fort, 
komen steeds hindernissen tegen zo¬ 
als muren en anti-tank geschut. Ko¬ 
men ze uiteindelijk ongeschonden bij 
het fort aan dan moet dat met 10 wel¬ 
gemikte schoten worden vernietigd. 
Denk nou niet als je zover bent dat je 
de overwinning al kunt vieren, want de 
laatste loodjes wegen het zwaarst. 

Quest for Tyres 

Met dit spel gaan we terug naar tijden 
toen de auto nog niet was uitgevon¬ 
den. Echte helden bewogen zich toen 
voort op een eenwielige fiets. Je vrien¬ 
din is geschaakt door een dinosaurus. 
Dus er snel achteraan om haar uit zijn 
klauwen te redden. 

Onderweg moeten er allerlei hinder¬ 
nissen worden genomen en de dino¬ 
saurus geeft haar natuurlijk niet zo 
maar terug. De eerste hindernis is een 
grasveld. Geen mooi voetbalveld 
maar een grasland met vele kuilen. 
Na enige oefening is het mogelijk over 
deze kuilen heen te springen. Denk er 
wel om dat er ook verschillende keien 


liggen om het geheel nog wat moei- 
lijker te maken. Als je dit overwonnen 
hebt kom je in een bosrijk gebied met 
veie laaghangende takken. Over de 
omgevalen bomen kan worden heen- 
gesprongen en al bukkend moet er 
onder de takken worden doorgelopen. 



De rivier is over te steken door de 
schildpadden te gebruiken als brug. 
Het grote probleem is echter dat deze 
slechts korte tijd boven water blijven, 
zodat er haast geboden is. Het eist 
een zekere timing maar het is goed 
mogelijk. Hou wel rekening met de 
vervaarlijke dame die met een grote 
knuppel aan het zwaaien is. Het ver¬ 
volg valt ook niet mee, maar je mag er 
ook wel wat voor over hebben om 
haar te redden. Het is tenslotte je ei¬ 
gen vriendin. Het gaat nu berg op, en 
blijkbaar zijn ze het er niet mee eens 
dat je ze zo op de hielen zit. Er worden 
steeds meer stenen naar beneden 
gegooid. Bovengekomen is er even 
tijd voor een pauze. Het wachten is 
namelijk op een vriendelijke vogel, 
deze kan je eeri lift geven. Blijf onder 
hem rijden en zodra de rivier in zicht is 
spring je. De vogel brengt je dan naar 
de overkant. Bij het afdalen van de 
berg moet je er om denken dat er vol¬ 
doende snelheid wordt ontwikkeld, 
zodat je over de volgende rivier kunt 
springen. Het eind is nu in zicht, een 
veld dat overgestoken moet worden 
en een laatste rivier scheidden je van 
de redding van je vriendin. Lukt dit je 
zonder dat je gezien wordt dan kom je 
oog in oog te staan met je vriendin. 
Wat er dan gebeurt moet je zelf maar 
ontdekken. Helaas kan je niet al te 
lang van dit moment genieten want 
dan begint het spel opnieuw. 
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StationFall 

De knotsgekke robot Floyd is ook 
weer terug in StationFall, een vervolg 
op PlanetFall. Flet spelgegeven lijkt 
veel op een wonderlijk spel verstop¬ 
pertje. Steve Meretsky’s Floyd gaat 
weer als een robot met verknipt lo¬ 
gisch brein te keer en blijft toch altijd 
ontroerend, voor zover dat op een ma¬ 
chine van toepassing kan zijn. 

Dankzij het succes in PlanetFall werd 
de held bevorderd van dekschrobber 
eerste klasse of zoiets naar pennelik- 
ker subklasse drie of een dergelijke 
bureaucratische dwarsstraat. In ieder 
geval is ook het nieuw opgedragen 
werk stomvervelend. Gelukkig zijn er 
nog Floyd, jouw voormalige en nu ge¬ 
degradeerde chef, plus enkele andere 
robots aan boord. Als spelmaatje 
neemt u vanzelfsprekend Floyd. 

De eerste opdracht, het afleveren van 
10 blauwdrukken op het Gamma Del¬ 
ta Gamma 777-G ruimte station lijkt 
aanvankelijk niet zo’n toer. De SPS 
Duffy haalt zo’n intergalactisch eindje 
met gemak. De ontmoeting met de 
robot Plato, een bejaardere versie van 
Floyd, aan boord van het ruimtestati¬ 
on moet echter al tot nadenken stem¬ 
men. Tussen deze boekenwurm en 
Floyd ontstaat al gauw de cliché (SF- 
films) komische robotact met tal van 
vermakelijke conversaties. 

Al spoedig breekt de waanzin los. De 
hardware slaat op hol. Schuifdeuren 
blijken ineens levensgevaarlijke door¬ 
gangen, androiden maken amok en 
zelfs Floyd lijkt te desintegreren. Flet 
verhaal laat zich verder moeilijk na¬ 
vertellen en de oplossing geven wij u 
echt niet. 

StationFall komt compleet met bure¬ 
aucratisch archiefmateriaal, techni¬ 
sche handleiding, een Stellar Patrol 
Patch, paspoort en goede tekstpar- 
ser. De prijs van dit Infocom/Activision 
adventures ligt rond de ƒ 100,-. 

Hollywood Poker 

Strippoker-games behoren tot het 
soort spelen waar wij niet zo dol op 
zijn. Niet uit puriteinse overwegingen, 
maar gewoon omdat het meestal om 
een duur en kwalitatief slecht "lolletje" 
gaat. Wie echter van dit soort grappen 
houdt komt met Robteks Hollywood 
Poker aardig aan zijn trekken. De C- 
64/C-128-graphics staan voor een re¬ 
delijke kwaliteit van het ontblootte 
vrouwelijk schoon. Flet is geen Play¬ 
boy maar de wat krap in het scherm 
zittende dames kunnen er best mee 
door. Onderaan het monitorscherm 
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staan de goed gedetailleerde speel¬ 
kaarten. 

Pokeren tegen Miss Germany en nog 
vier andere aantrekkelijke pokerpart- 
ners kost ƒ 59,- voor de C-64-versie. 
Info Robtek, Bergen op Zoom, tel.: 
01640-56363. 



Indiana Jones 

Ook de James Bond onder de arche¬ 
ologen, Indiana Jones, moet na het 
bioscoop- en videosucces van The 
Temple of Doom aan het videogame 
geloven. US-Gold brengt binnenkort 
een speciaal op de C-64 afgestemde 
versie op de markt. Tahir Rashid te¬ 
kende voor de graphics en dat staat 
borg voor een goede kwaliteit. 

Flet labyrinth-deel van het Temple of 
Doom-verhaal leent zich natuurlijk 
goed voor een arcade-game. Vele 
nauwe gangen met een doolhofstruc- 
tuur, tal van vervaarlijke componenten 
en een met duizelingwekkende vaart 
rijdend mijnkarretje zijn goed voor 
heel wat flitsende actie en behendig- 
heidseisen. De spelopdracht om In- 
diana’s vrienden uit de handen van 
Mola Ram en zijn rituele Thug-moor- 
denaars te redden is dan nog slechts 
bijzaak. 

Onze onverschrokken archeoloog 
trekt met zijn zweep ten strijde tegen 
het tempeltuig. Sla de Thugs met de 
zweep over de rotsen en zij zijn de¬ 
finitief uitgeschakelt. Een flinke klap 
verdooft hen slechts. Verder is het 
mogelijk om met behulp van de zweep 
punten te verdienen door stapels 
schedels en slangen te raken. 

Het eerste spelscherm bestaat uit lad- 
derklimmen en het zoeken in de nau¬ 
we gangen naar grotten waarin de vijf 
te redden slavenkinderen gevangen 
zitten. Op het tweede scherm hebben 
de Thugs de uitbraak ontdekt en start 
een wilde achtervolging in mijnkarret¬ 
jes. Daarbij is het zaak om de juiste 
weg goed in het oog te houden, want 
een verkeerde afslag en het karretje 
schiet echt de "Doom" van de spelers 


tegemoet. Tevens moet Indiana pro¬ 
beren zijn karretje achter dat van de 
Thugs te manoevreren en hen vervol¬ 
gens met de zweep uit te schakelen. 
Thugs achter je is hoogst omgezond, 
want deze bezeten killers zijn zwaar 
bewapend. 

Na de achtervolging komt de held in 
de tempel zelf en moet hij nog even de 
geheimzinnige Sankara stenen onder 
het beeld van de moordende god Kali 
stelen. Daarna gaat de deur naar de 
vrijheid open. Lukt het drie maal ach¬ 
tereen om de tempel te bereiken en de 
stenen te stelen dan volgt nog een 
toetje: Het gevecht op de wankele 
hangbrug met een horde woeste 
thugs. 

Een aardig arcade actiegame met re¬ 
delijke graphics. De maalstroom van 
enerverende gebeurtenissen in de 
echte Indiana Jones films valt echter 
niet te evenaren. Toch goed voor heel 
wat avondjes actieplezier. De prijs 
voor de C-64/128-versie was op het 
moment van schrijven nog niet be¬ 
kend. 


Road Runner 

Een kruizing tussen een tekenfilm van 
het geweldadige genre en een speel¬ 
automaat. Dat is Road Runner waar¬ 
in de arme Wile E. Coyote probeert de 
malse Road Runner-vogel te ver¬ 
schalken. Er ontwikkelt zich in de 
woestijn van Nevada een woest car- 
toon-videogame met de nodige aan¬ 
slagen, dirty tricks en listige vallen. 

De Road Runner ontwikkelt een gig¬ 
antische snelheid en is een groot deel 
van het game slechts als een blauwe 
schaduw zichtbaar. Wile Coyote is te 
langzaam om de held zo te vangen, 
en zal daarom allerlei lage lusten en 
trucages moeten aanwenden, anders 
zullen zijn mes en vork voortijdig ver¬ 
roesten. Er zijn 26 van rechts naar 
links te spelen game-schermen. De 
oversteek wordt uiteraard bemoeilijkt 
door de hongerige Coyote die af en 
toe over een skateboard met 
raketaandrijving beschikt, mijnenvel¬ 
den, snelwegen en allerlei obstakels 
in het landschep. Door het landschep 
’runnen’ kost een hoop energie die 
door middel van hoopjes vogelvoed- 
sel aangevuld moet worden. Eet ech¬ 
ter niet te veel want, dan wordt u dik, 
lui en vooral traag. Een toestand die 
Wile Coyote zo graag ziet. Hetzelfde 
geldt voor de limonade die een ris¬ 
kante stop, maar wel extra punten 
oplevert. 

Een leuk flitsend arcadespel voor de 
Commodore 64 met goede graphics. 
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gladde animaties en cartoon-geluiden 
zoals Beep, Blurp en Crashes. Dit US 
Gold-produkt gaat in de winkel onge¬ 
veer ƒ 75,- kosten. 

Faery Tale 

Een sprookje in de traditie van Sword 
and Scorcery is Microillusion’s Feary 
Tale. Een lieflijk stadje, drie onder¬ 
nemende broers, een magische talis¬ 
man, tovenarij en een partij afzichte¬ 
lijke griezels zijn de ingrediënten van 
dit boeiende Amiga adventure. 

Op een nacht wordt de beschermende 
talisman van het stadje Tambry door 
een horde duistere figuren, dwergen 
en dansende skeletten gestolen. Ge¬ 
lukkig heeft de lokale wapenmeester 
drie zoons die het beschermende ta¬ 
lisman zullen heroveren, voordat de 
boze krachten Tambry in bezit kunnen 
nemen. Juliaan de oudste broer is de 
vechtersbaas. Sterk als een os en be¬ 
hendig met de wapens. Philip is de 
gokker en geluksvogel. Snel van 
geest en gevat weet hij zich altijd goed 
door het leven te slaan. Kevin is de 
dichter en vredelievendste van de 
drie. Deze jongste broer staat op 
goede voet met de dierenwereld. 

Bij het starten van het game slaat het 
sprookjesboek open, wordt de ge¬ 
schiedenis van het stadje Tambry ver¬ 
telt en de karakters van de drie broers 
beschreven. De speler begint als Ju¬ 
liaan. Deze spelfiguur wordt met de 
muis of joystick door het dorp en in de 
gebouwen gestuurd. Zodra een ge¬ 
bouw betreden wordt .verschijnt een 
plattegrond van de vertrekken met de 
daarin aanwezige voorwerpen. In de 
gebouwen moeten verschillende ob¬ 
jecten verzameld worden. Het gemak¬ 
kelijkst gaat dat in de herberg waar 
tegen flinke betaling voedsel en wa¬ 
pens aangeschaft kunnen worden. 
Onder het speelscherm staat een stuk 
perkament waarop de boodschappen 
van de parser in klassiek schrift ver¬ 
schijnen. Daarnaast staan de 
muis/joystick-opdrachten Items, Talk, 
Game, Music, Quit, Magie, Buy 
Pause, Sound en Load. En 
rechtsonder een antieke windroos. 
Voor de zoekactie zijn een kaart van 
het eiland Holm (er zijn 17.000 
sereens), voedsel en wapens onmis¬ 
baar. Die wapens zijn hard nodig 
tegen de woeste dwergen, levende 
skeletten, spookachtige apen en men¬ 
seneters. Naast al die engerds zijn er 
gelukkig ook nog een tovenaar en 
bedelaars die de held kunnen helpen. 
Het landschep biedt aardige gedetail¬ 
leerde semi-3D graphics en is heel af¬ 
wisselend. De Actie loopt vloeiend 
zoals wij van de Amiga gewend zijn. 
Bij de gevechten spat het bloed in het 


rond, klinkt realistisch wapengekletter 
en geschreeuw. Dit alles omlijst door 
sfeerversterkende muziek. 

Slaagt broer Juliaan niet dan wordt 
Philip in de strijd geworpen en daarna 
Kevin. Een boeiend Amiga spel voor 
de liefhebber van sprookjesachtige 
adventures. 


StarBoard2 

Extra geheugen en functies aan stuur¬ 
boord (= de buszijde) van de Amiga? 
Dat kan met de nieuwe meer-deks 

StarBoard2 RAM-kaart van MicroBo- 
tics. 

In de eenvoudigste configuratie be¬ 
staat de StarBoardZ-busmodule uit 
een nette behuizing met een lege 
kaart voor maximaal 1 Meg aan Fast 
RAM. Vult de gebruiker deze kaart 
met Fast Zero Wait State RAM dan is 
er nog ruimte voor een extra 1 Meg 
kaart op dek2 en een multi-function- 
kaart kaartkaartop dek3. 

De multi-functionkaart beschikt over 
een real-time clock/calender met 
AAA-batterij, een socket voor de float- 
ing point Motorola 68881 FPL), parity 
checking en een tegen warm rebooten 
bestendige RAM-disk, de zogenaam¬ 
de sticky disk. Onmisbaar is het 
aanwezige doorgaande busslot voor 
het koppelen van andere randappa¬ 
ratuur. 

prijzen van ƒ800,-tot ƒ2500,- 


Flightsimulator II 

De wereldberoemde vluchtsimulator 
Flightsimulator II is onlangs ook voor 
de Commodore Amiga uitgebracht. 
Van zo'n specifieke Amiga hadden wij 
wel 68.000-achtige graphics ver¬ 
wacht. Dat valt echter tegen, want de 
oude Sublogic huisstijl bleef, zij het 
met een toegenome scherpte en meer 
aandacht voor details gehandhaafd. 
Verder niet getreurd, want Flight¬ 
simulator II blijft ondanks alles een 
van de beste micro-vlichtsimulatoren 
ter wereld. Alleen echt vliegen is nog 
leuker. 

Er komen twee versies, een in kleur 
en een in monochroom, om het si- 
mulatie-effect zo goed mogelijk op de 
gebruikte monitor over te brengen. Op 
het moment van testen was de mono- 
uitvoering nog niet verkrijgbaar en wij 
vlogen dus in kleur. 

De piloot in spé kan kiezen uit een 
een-motorige propeller-kist, de Cess¬ 
na 182, of een moderne business-jet. 
Een minder interessant onderdeel is 
de WO-I luchtslag die mank gaat aan 
de slecht gedetailleerde tegenstan¬ 
ders. Wie echt boeiende gevechten 
wil kan daarom beter een van de 


betere arcade-simulatoren kopen. 
Veel aantrekkelijker is de optie om via 
een serieel interface of modem (1200 
Baud) samen met een collega-piloot 
door het zwerk te vliegen. 

Er zijn 47 simulatie-scenes. Daarin 
kan de leerlingpiloot naast het opstij¬ 
gen en landen ook de navigatie, ramp¬ 
situaties en het slecht-weer-vliegen 
oefenen. De makers weten de realiteit 
aardig te evenaren. De vrij schets¬ 
matige scenery volgt alle vluchtbewe- 
gingen op de voet, een te koude motor 
slaat onvermijdelijk af, te wilde of on- 
regelmentaire capriolen eindigen in 
een jammerlijke crash en de vlucht 
verloopt, soms tot vervelens toe, in 
real time. 

Ook is het bijvoorbeeld mogelijk om 
levensecht tussen de peilers van de 
Golden Gate-brug van San Francisco 
te vliegen. Onervaren vliegers kunnen 
bij deze stunt echter beter een zwem¬ 
vest meenemen. Verder is er nog een 
automatische piloot. 

Wij konden het niet laten om eens de 
proef op de som te nemen. Bij de 
Cessna zitten de bezinetanks in de 
vleugel en de motor wat lager in de 
neus. Dat betekent dat de benzine 
met hulp van de zwaartekracht van 
boven naar beneden stroomt. Bij 
stuntvliegen op de rug of bij een ex¬ 
treme stijghoek krijgt de motor zonder 
een benzinepomp geen druppel bin¬ 
nen. Toch eens proberen en ja... de 
machine geeft de pijp aan Maarten. 
Overigens stond dit feit ook in de 
handleiding vermeid. Stuntvliegen is 
onder normale condities niet toeges¬ 
taan. 

Wat onnatuurlijk komt het vliegen met 
de muis of het keyboard over. Een joy¬ 
stick lijkt immers meer op een stuur- 
knuppel. Dankzij de mogelijkheden 
van de 68.000 CPU kan het scherm 
snel in vensters opgedeeld worden of 
van venster/blik uit de cockpit wisse¬ 
len. Onderaan het scherm staat het in¬ 
strumentenvenster waaraan de piloot 
het wel en wee van zijn of haar kist 
kan aflezen. De handleiding licht de 
werking en betekenis van deze instru¬ 
menten uitvoerig (in het Engels) toe. 
Wie onbezorgd wil rondvliegen kan dit 
deel echter overslaan. 

De Sublogic-ontwerpers hebben zich 
goed van hun taak gekweten. Toch 
blijven er enige aanmerkingen over. 
Behalve de licht tegenvallende 3D- 
graphics zitter er enkele slordigheden 
in deze simulator. De ILS is hier en 
daar wat minder nauwkeurig, wij kon¬ 
den enkele vliegvelden niet vinden en 
de automatische piloot bleek slechts 
beperkt (boven de 32.000 feet gaat 
het mis) programmeerbaar. 

Niettemin blijft Flightsimulator II een 
echte topper die het ware vliegen nog 
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net niet kan vervangen. Sublogic heeft 
ter aanvulling een hele rees scenery- 
en simulatie-diskettes aangekondigd. 
De prijs van deze vluchtsimulator 
ligt rond de ƒ 180,-. 

Het Griekse woord Nemesis staat 
voor de godin der wrekende gerech¬ 
tigheid en figuurlijk voor de straf die op 
de misdaad volgt. Een veel belovende 
naam voor een misdaadspel, maar 
het gaat hier om een bekend shoot- 
them-up arcadegame dat binnenkort 
onder het Konami-label wordt uitge¬ 
bracht. 

De homecomputerversie van Neme¬ 
sis is natuurlijk niet zo snel als het 
originele speelhal-game, maar het 
blijft een van actie flitsende uitdaging. 
Nemesis speelt, net als bij vele soort¬ 
gelijke games , in het heelal waar een 
meedogenloze vijand in de vorm van 
schepen en monsters de verdedigen¬ 
de speler bedreigt. Zeven niveaus 
schietwerk, behendig ontwijken en e- 
nig strategisch inzicht vereisen het ui¬ 
terste van de speler. Het game is dan 
ook veel meer dan de zoveelste up¬ 
grade van Space Invaders in deep 
space. 

Na het laden openen zich de verten 
van de oneindige ruimte. Het blauw is 
nog rustig, maar daar komt spoedig 


verandering. Voor je het weet duiken 
er hele hordes buitenaardse jagers op 
de verdedigende destroyer. Na wat 
oefenwerk lukt het om de eerste golf 
blauwe tegenstanders af te schieten. 
Dan verschijnt er onder in beeld een 
soort menubalk met extra gevechts- 
mo-gelijkheden. Er is keuze uit zes 
ikonen: Speed-up, Missiles, Doublé, 
Laser, Multiple en een vraagteken 
Speed-up (versnellen) spreekt voor 
zich. De optie Missiles versterkt de 
defensie met- raketten voor het uit¬ 
schakelen van vijandige basis en/of 
moederschepen. Doublé slaat op een 
extra laserkanon dat onder een hoek 
van 45 graden allerlei griezels van de 
bovenste schermrand schiet. Wellicht 
bedoelden de makers met deze grie¬ 
zels de Nemesis-profetie? Laser 
werkt als grof geschut en knalt alles in 
de vuurlijn naar het hiernamaals. 

Bij deze geschutskeuze komt het stra- 
tegie-element om de hoek kijken. De 
speler kan zijn/haar destroyer niet ge¬ 
woon afladen met wapentuig en er 
lekker lukraak op los paffen. Het is 
een of...of- keuze. Dus of raketten of 
een extra laserkanon. Een en ander is 
uiteraard bepalend voor de eind¬ 
uitslag van het komende gevecht. 


Het mysterieuze vraagteken toegang 
tot wat alternatief wapentuig zoals bij¬ 
voorbeeld de alles vernietigende 
Smash-bommen. 

In ieder geval blijken de "bommen en 
granaten" uit de toekomst bijzonder 
nuttig om de meest vreemde tegen¬ 
standers uit te schakelen. Wat dacht u 
bijvoorbeeld van levende dinosaurus¬ 
skeletten, rondzwevende amoeboi- 
den en dodelijk standbeelden die zo 
van het Paas-eiland zijn weggelopen. 
Elk scherm brengt weer wat nieuws 
met als toetje het weerzinwekkende 
brein dat wacht op de vermetele die 
zijn hulpscharen durft te vernietigen. 
Op de C-64/C-128-computer is het 
echt aanpoten om de vijand er onder 
te houden en dat houdt de spanning er 
goed in. Het spel zal daarom niet 
gauw vervelen. De graphics zijn welis¬ 
waar kleurrijk en fantasievol, maar 
konden ons inziens nog wel wat beter 
uitgewerkt worden. De geiuidseffec- 
ten zijn goed alleen de tune is wat 
tam. Opmerkelijk is het snelle en ge¬ 
lijkmatige voor- een achteruit scrollen 
tussen de verschillende schermen. 

De prijs van dit Konami game komt 
vermoedelijk rond de ƒ30,- te liggen. 



SETTLE LIGHT SOFT’S 

DAMMEN 

Eindelijk een tegenstander op niveau! 

★ Nederlandse handleiding met regels en taktische tips 

★ demonstratie-partijen 

★ invoeren van zetten met toetsen, cursor of joystick 

★ terugnemen van vorige zet 

★ zelf opzetten van standen 

★ computer speelt zwart of wit 

★ spiegelen van bestaande stand 


In de betere computershop voor 

ƒ 37,50 (cassette) 
ƒ 45,— (diskette) 


incl. BTW 
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Print-OUt Met o.a. Powerboot - Solitair - Explosie - Springbeest 


Zoals je van ons gewend bent staan er in dit nummer 
weer een groot aantal listings. Zowel langere listings 
als ook een aantal korte. Het verheugt ons dat ook de 
commodore 128 en de Cl 6 niet (meer) worden verge¬ 
ten. We krijgen hiervoor ook weer wat listings binnen. 
Er komen er zelfs al een aantal binnen voor de 
AMIGA. We komen hier zeker binnenkort op terug. Uit 
het grote aantal listings dat we krijgen ingestuurd 
blijkt dat er steeds meer wordt gewerkt in machine 
taal. Op zich kunnen we dit alleen maar toejuichen, 
de programma’s worden er sneller, krachtiger door. 
Denk er wel om dat de data regels exact zo moeten 
worden over getypt als dat ze in het blad staan. Er 
hoeft maar een getal verkeerd te staan en het gehele 
programma werkt niet meer. Gebruik dus het check- 
sum programma om dit te kontroleren. Sterkte en veel 
plezier met de programma’s 

R. Goudriaan. 


Syntax Checksum 


I Het overtikken van een listing kan een heel' karwei 
zijn en als u een beetje normaal mens bent dan 
maakt u daarin beslist een aantal fouten. Nu is niets 
! moeilijker om de fouten uit je eigen werk te halen. Al 
geruime tijd heeft Jan Bodzinga hiervoor een zgn. 

I Checksum-programma geschreven. Om de vele 
^ nieuwe lezers van Commodore-info te helpen volgt 
hieronder nog een keer een volledige uitleg over de 
werking van dit programma, waarmee het, hoe 
vreemd dat misschien ook lijkt, echt mogelijk is om 
met behulp van dit programma de fouten in elke door 
ons geplaatste listing op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt hem 
voordat u het programma RUNt op een diskette of 
cassette. 

2. U tikt het RUN commando in. Mocht het program¬ 
ma de boodschap ’FOUT in dataregels!’ geven dan 
heeft u een fout bij het overtikken gemaakt. Herstel 
dan de fout en SAVE de verbeterde versie. Mocht het 
programma met de boodschap ’data is weggezet 
checksum testen met sys...’komen dan is tot dusver 
alles goed. Het programma is nu in een stukje 
machinetaalgeheugen gezet. Als u het NEW com¬ 
mando geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic 
geschreven. 

Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de 
gehele listing opnieuw te gaan intikken. Als u nu een 
programma op fouten wilt gaan controleren dan kunt 
I u dat in het geheugen laden(wel eerst het checksum 
j programma hebben gerund). Vervolgens typt u 
I zonder het programma te runnen de opdracht sys 
49152(c-64) of sys 1536 (c-16 en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regelnum- 
I mers over het scherm met getallen erachter. Dezelfde 
j lijst staat ook achter elk door ons geplaatste program¬ 


ma. Wijkt nu een nummer achter een regelnummer af 
van het nummer dat in het blad staat dan heeft u in 
die regel iets anders ingetikt dan er in het blad stond. 
U kunt de stroom getallen d.m.v. de RUN/STOP toets 
pauzeren en weer vervolgen met de F1 of F7 toets. 
Het is uitermate belangrijk dat u goed met dit pro¬ 
gramma overweg kunt en mocht u het niet goed 
werkend krijgen bel dan gerust even met onze lis- 
tingservice telefoonlijn. 

1 rem ****************************** 

2 rem basic loader " SYNTAX.CHECKSUM" 

3 rem runen en new. blijft in ram 
op $c000. 

4 rem checksum testen met commando 
: 'sys 49152' 

5 rem 

6 rem v.840928.64 jan bodzinga 

7 rem ****************************** 

10 i=49152 :rem beginadres 

20 reada:ifa<0then50 :rem data ingei 

ezen 

30 pokei,a:i=i+l:goto20 

50 poke49184, 148:poke49185, 192 

55 i=49300 

60 read a: ifa<0then90 

70 pokei,a:i=i+l;goto60 

90 prinf'data[SPACE]is[SPACE]weggezet 

II 


95 print"checksum[SPACE]testen[SPACE] 



met[SPACE 

] sys 

49152 

II 



100 

data 

165, 

43, 

166, 

44, 

133, 

163, 


134, 

164, 

169 

, 147 




110 

data 

32, 

210, 

255, 

160, 

0, 

240, 


3, 32 

, 73 

, 192 




120 

data 

32, 

73, 

192, 

208, 

1, 9 

6, 


32, 225, 

255, 

208 




130 

data 

3, 7 

6, 1 

16, 1 

64, 32, 8 

1, 


192, 

32, 

73, 

192 




140 

data 

240, 

12, 

201, 

32, 

240, 

247, 


24, 101, 

167, 

133 




150 

data 

167, 

76, 

37, 

192, 

166, 

167, 


169, 

0, 1 

32, 

168 




160 

data 

32, 

205, 

189, 

169, 

13, 

32, 


210, 

255, 

164 

, 168 




170 

data 

76, 

17, 

192, 

200, 

208, 

2, 


230,1 

.64, 1 

77, 1 

63 




180 

data 

96, 

162, 

0, 1 

89, 1 

23, 

192, 


240, 

6, 32, 2 

10 




190 

data 

255, 

232 

, 208 

, 245 

, 32 

, 73, 


192, 

170, 

32, 

73 




200 

datal92. 

132, 

168, 

32, 

205, 

189, 


162, 

3, 1 

69, 

32 




210 

data 

32, 

210, 

255, 

202, 

208 

, 250 


169, 

0, 133, 

167 




220 

data 

164, 

168 

, 96, 

82, 

69, 

71, 


69, 

76, 

32, 

0 




230 

data 

-1 






240 

data 

165, 

197, 

201,3 

, 240, 

7,20 

1,4,2 

250 

data 

6,76 

i, 148 

,192, 

76, 34 

.,192 

,16 9 

260 

data 

147, 

32,210,25 

5,76, 

161, 

192 

270 

data 

-1 







** EINDE LISTING syntax checksum; voor cheksum 
getallen van deze listing z.o.z. 






CoMnu^ore itt/b 7iH7 
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REGEL 

1 

61 

REGEL 

130 

183 

REGEL 

2 

84 

REGEL 

140 

96 

REGEL 

3 

6 

REGEL 

150 

96 

REGEL 

4 

117 

REGEL 

160 

127 

REGEL 

5 

143 

REGEL 

170 

71 

REGEL 

6 

17 

REGEL 

180 

223 

REGEL 

7 

61 

REGEL 

190 

73 

REGEL 

10 

157 

REGEL 

200 

79 

REGEL 

20 

65 

REGEL 

210 

109 

REGEL 

30 

203 

REGEL 

220 

106 

REGEL 

50 

14 

REGEL 

230 

225 

REGEL 

55 

251 

REGEL 

240 

114 

REGEL 

60 

193 

REGEL 

250 

89 

REGEL 

70 

207 

REGEL 

260 

68 

REGEL 

90 

245 

REGEL 

270 

224 

REGEL 

95 

237 




REGEL 

100 

183 




REGEL 

110 

158 




REGEL 

120 

232 





Kleine Solitair 


Het volgende programma is er één van Bert Stam uit 
Zwolle. Hij heeft het programma Kleine Solitair ge¬ 
noemd. Er is een duidelijke uitleg in het programma 
opgenomen. Laat je echter niet verleiden door de 
naam, kleine betekent hier zeker niet gemakkelijker. 
Veel succes bij het spelen van dit verslavende spel. 

10 print"[SHIFT CLR]":poke53280 , 11:po 

ke53281,11:poke646,13:gosub 750:go 
to310 

20 ifj<lorj>25thengosub60:goto540 

30 fork=lto8:print"[CRSR-RIGHT]:nex 

t:return 

40 ifq<lorq>25thenprint"[SxCRSR-RIGHT 

] [CTRL 9] [SPACE]kan[SPACE]niet! ! [S 
PAGE]":yy=80:q=0:gosub60:goto470 
50 return 

60 forzz=lto2000:next 

70 forz=yytolstep-l:printchr$(20);:ne 

xt: return 

80 ifj=5orj=10orj=15orj=20thenx=x+139 

90 ifj>5andj<9thenz=y:return 

100 ifj>10andj<14thenz=y:return 

110 ifj>15andj<l9thenz=y:return 

120 z=32:return 

130 forj=lto25:x=x+4:ifq=jthenreturn 

140 ifj=5orj=10orj=15orj=20thenx=x+135 

150 next 

160 forj=lto25:ifqojthennext 

170 ifz ( j)=32thenreturn 

180 q=0:goto40 

190 forj=lto25:ifqOjthennext 

200 ifz ( j)<>32thenreturn 

210 q=0:goto40 

220 ifa=6ora=llora=16ora=21then270 

230 ifa=2ora=7ora=12ora=17ora=22then29 

0 

240 ifa=10ora=15ora=20then290 

250 ifa=4ora=9ora=14ora=19then270 

260 return 

270 ifb=5orb=10orb=15orb=20thenq=0 : got 

o40 

280 return 

290 ifb=6orb=llorb=l6orb=21thenq=0:got 

o40 

300 return 

310 dimz(25):forj=lto5;gosubSO:forl=lt 

o5:print"O[4xCOM Y]";:next:print"[ 

COM H]":print 

320 form=lto2 rprint" [CRSR-DOWN] "; ;next 

: next j 


330 print"[HOME][CRSR-DOWN]form=lto5 
;foro=lto3:gosubSO:forn=lto6 
340 print"[COM H][4xCRSR-RIGHT]";:next 
: print:next:print:next 
350 printrprint"[2xCRSR-UP]";:gosubSO: 

forj = lto5 rprint"[5xCOM Y] "; r next 
360 x=1113ry=81rz=32 

370 forj = lto2 5rz(j)=zr uu=x + 5 42 72 rifz = 8 

Ithenpokeuutj,0 

380 pokex+j,z(j) rgosub80rifj=5orj=10or 
j=15orj=20thennext 

3 90 x=x+4 r next 

400 print"[HOME]"rprint"[3xCRSR-DOWN][ 
lOxCRSR-RIGHT]rforj=lto9rpoke646 

, 6 

410 printj;"[2xCRSR-RIGHT]rifj=5then 
print rprint"[3xCRSR-DOWN] [lOxCRSR- 
RIGHT]rnext 
420 next 

4 30 forj = 10to25 rprintj;"[CRSR-RIGHT]" ; 
440 ifj = 10orj = 15orj=20thenprint rprint" 

[3xCRSR-DOWN][1OxCRSR-RIGHT]rnex 
t 

450 next 

460 printrprintrt=0 
470 x=1113ry=81rz=32 

480 inputarifa=0then730 
490 q=argosub40rgosubl90 
500 input"[CRSR-UP][5xCRSR-RIGHT]moet[ 
SPACE]over";brq=brgosub40 rgosubl90 
510 ifa>bthengoto540 

520 ifb>athengoto600 
530 q=0rgoto40 
540 ifa>6andb<6thenq=0rgoto40 
550 c=a-b r q=b-c rifc=lorc=4orc=5orc=6th 
engoto570 

5 60 q=0 r goto40 

570 gosub220rx=1113rgosubl30rq=jrz(j)= 
y r x=x-4 ruu=x+54272rpokeuu+j,0rpoke 
x+j,z (j) 

580 q=b rx=1113rgosubl30rz(j)=zr x=x-4 rp 
okex+j , z(j) 

590 q=a r x=ll13 r gosubl3 0 r z(j)=z r x=x-4 r p 
okex+j,z(j) rgoto660 
600 ifb>20anda<20thenq=0rgoto40 
610 c=b-a r q=b+c:ifc=lorc=4orc=5orc=6th 
engoto630 
620 q=0rgoto40 

630 gosub22 0 rx=1113rgosubl30rq=jrz(j) = 
y r x=x-4 r uu=x+54272 rpokeuuRj,0 rpoke 
xtj,z ( j) 

640 q=a r x=1113 r gosubl30 rz(j)=zrx=x-4rp 

okext j,z ( j) 

650 q=b rx=1113rgosubl30rz(j)=32r x=x-4 r 
pokextj,z(j) 

660 yY=40 r gosub70 rt=ttlrift=8thengoto6 

80 

670 goto470 

680 pt = 0 rp=0 rforj = lto25rifz(j)=32thenp 

=ptlr next 

690 ifz (13)=81thenpt = l 

700 ifpt=landp=24then740 
710 ifj=26then730 

720 next 

730 print"[SHIFT CLR][3xCRSR-DOWN][4xC 
RSR-RIGHT]jammer!![SPACE]nr.13[SPA 
CE]is[SPACE]in[SPACE]dit[SPACE]spe 
1[SPACE]uw[SPACE]ge-[4xCRSR-RIGHT] 
luksgetal!"r gotolOSO 

740 print"[SHIFT CLR][3xCRSR-DOWN][5xC 
RSR-RIGHT]gelukt! !"r forj = ltol00 rpo 
ke53280, 0 r poke532 80, 1rnext r gotolOS 
0 

7Sn TD-r-nr^t-OT-xr-" f Q \ •* T /i-srr’DC'T) _ rNkAr-iM i rr-i-iTiz-n-iii-n 





















print-out print-out print-out 

print-out print-out 


eine[2XSPACE]S[SPACE]o[SPACE]1[SPA 

CE]i[SPACE]t[SPACE]a[SPACE]i[SPACE 
]r[SPACE]e" 

920 

print"[3XCR3R-RIGHT]het[SPACE]spel 
[SPACE]stoppen[SPACE]door[SPACE]'0 
'[SPACE]te[SPACE]typen" 

760 

printspc(18)"[3xCRSR-DOWN]door" 

930 

print"[3XCRSR-RIGHT][CTRL 4]een[SP 

770 

printspc (14)"[7xCRSR-D0WN]bert[SPA 


ACE]voorbeeld:" 


CE]stam" 

940 

print"[3xCRSR-RIGHT]u[SPACE]wilt[S 

780 

printspc(14)"[CRSR-DOWN]anemoonstr 
aat[SPACE]27" 


PACE]het[SPACE]balletje[SPACE]in[S 

PACE]hokje[SPACE]9" 

790 

printspc (14)"[CRSR-DOWN]8012[SPACE 
]XV[SPACE]Zwolle" 

950 

print"[3xCRSR-RIGHT]over[SPACE]hok 
je[SPACE]10[SPACE]naar[SPACE]hokje 

800 

forj=lto3500:next 


[SPACE]11.[SPACE]u[SPACE]typt" 

810 

print"[SHIFT CLR]":printspc(10)"ee 
n[SPACE]korte[SPACE]uitleg!" 

960 

print"[3xCRSR-RIGHT]eerst[SPACE]9. 
[SPACE]als[SPACE]het[SPACE]goed[SP 

820 

print"[CRSR-DOWN][3xCRSR-RIGHT]zow 


ACE]is[SPACE]verschijnt" 


el[SPACE]horizontaal,[SPACE]vertik 
aal[SPACE]als" 

970 

print"[3xCRSR-RIGHT]er[SPACE] 'moet 
[SPACE]over?'.[SPACE]dan[SPACE]typ 

830 

print"[3xCRSR-RIGHT]diagonaal[SPAC 


t[SPACE]u[SPACE]10." 


E]moet[SPACE]u[SPACE]met[SPACE]een 
[SPACE]balletje" 

980 

print"[3xCRSR-RIGHT]de[SPACE]compu 
ter[SPACE]doet[SPACE]de[SPACE]rest 

840 

print"[3xCRSR-RIGHT]over[SPACE]een 


1 " 


[SPACE]andere[SPACE]naar[SPACE]een 
[SPACE]leeg[SPACE]veld." 

990 

printspc (12)"[CRSR-DOWN] [COM 7] [CT 

RL 9][SPACE]s[SPACE]u[SPACE]c[SPAC 

850 

print"[3xCRSR-RIGHT]het[SPACE] ' ges 


E]c[SPACE]e[SPACE]s[SPACE]" 


lagen' [SPACE]ballet je[SPACE]wordt[ 
SPACE]weg-" 

1000 

printspc(10)"[CRSR-DOWN][COM 1][CT 

RL 9][SPACE]druk[SPACE]op[SPACE]re 

860 

print"[3xCRSR-RIGHT]genomen.[SPACE 


turn[SPACE]" 


]u[SPACE]kunt[SPACE]niet[SPACE]mee 

1010 

getz$:ifz$=""thenlOlO 


r[SPACE]dan[SPACE]8" 

1020 

ifz$=chr$(13)thengotol040 

870 

print"[3XCRSR-RIGHT]zetten[SPACE]d 

1030 

gotolOlO 


oen. [SPACE]dan[SPACE]blij ft[SPACE] 
er[SPACE]1[SPACE][CRSR-RIGHT] 

1040 

print"[SHIFT CLR]":poke53280,15:po 
ke53281,15:poke64 6,2:goto310 

880 

print"[3xCRSR-RIGHT]balletje[SPACE 
]over.[SPACE]het[SPACE]is[SPACE]de 
[SPACE]bedoeling" 

1050 

print"[2xCRSR-DOWN][4xCRSR-RIGHT]n 
og{SPACE]een[SPACE]keer?[SPACE](j/ 
n) " 

890 

print"[3xCRSR-RIGHT]dat[SPACE]in[S 

1060 

getz$:ifz$=""thenl060 


PACE]het[SPACE]midden[SPACE]een[SP 

1070 

ifz$="n"thenend 


ACE]balletje" 

1080 

clr:print"[SHIFT CLR]":poke53280,1 

900 

print"[3xCRSR-RIGHT]overblijft![SP 

ACE]komt[SPACE]u[SPACE]binnen[SPAC 


5:poke53281,15:poke646,2:goto310 

910 

E]de[SPACE]8" 

print"[3xCRSR-RIGHT]zetten[SPACE]v 
ast[SPACE]te[SPACE]zitten[SPACE]da 
n[SPACE]kunt[SPACE]u[SPACE]" 

** EINDE LISTING kleine solitair ** 


REGEL 

10 

238 

REGEL 

300 

142 

REGEL 

590 

252 

REGEL 

880 

112 

REGEL 

20 

193 

REGEL 

310 

157 

REGEL 

600 

230 

REGEL 

890 

81 

REGEL 

30 

126 

REGEL 

320 

172 

REGEL 

610 

209 

REGEL 

9ÜÜ 

87 

REGEL 

40 

161 

REGEL 

330 

121 

REGEL 

620 

90 

REGEL 

910 

45 

REGEL 

50 

142 

REGEL 

340 

26 

REGEL 

630 

103 

REGEL 

920 

77 

REGEL 

60 

58 

REGEL 

350 

153 

REGEL 

640 

157 

REGEL 

930 

135 

REGEL 

70 

165 

REGEL 

360 

41 

REGEL 

650 

169 

REGEL 

940 

46 

REGEL 

80 

57 

REGEL 

370 

2 

REGEL 

660 

54 

REGEL 

950 

11 

REGEL 

90 

116 

REGEL 

380 

127 

REGEL 

670 

36 

REGEL 

960 

154 

REGEL 

100 

204 

REGEL 

390 

252 

REGEL 

680 

70 

REGEL 

970 

255 

REGEL 

110 

214 

REGEL 

400 

47 

REGEL 

690 

227 

REGEL 

980 

64 

REGEL 

120 

57 

REGEL 

410 

112 

REGEL 

700 

107 

REGEL 

990 

146 

REGEL 

130 

122 

REGEL 

420 

130 

REGEL 

710 

48 

REGEL 

1000 

102 

REGEL 

140 

53 

REGEL 

430 

221 

REGEL 

720 

130 

REGEL 

1010 

193 

REGEL 

150 

130 

REGEL 

440 

171 

REGEL 

730 

190 

REGEL 

1020 

44 

REGEL 

160 

166 

REGEL 

450 

130 

REGEL 

740 

3 

REGEL 

1030 

75 

REGEL 

170 

204 

REGEL 

460 

220 

REGEL 

750 

140 

REGEL 

1040 

97 

REGEL 

180 

90 

REGEL 

470 

41 

REGEL 

760 

124 

REGEL 

1050 

173 

REGEL 

190 

166 

REGEL 

480 

239 

REGEL 

770 

234 

REGEL 

1060 

198 

REGEL 

200 

126 

REGEL 

490 

208 

REGEL 

780 

103 

REGEL 

1070 

116 

REGEL 

210 

90 

REGEL 

500 

228 

REGEL 

790 

120 

REGEL 

1080 

55 

REGEL 

220 

9 

REGEL 

510 

136 

REGEL 

800 

214 




REGEL 

230 

228 

REGEL 

520 

133 

REGEL 

810 

255 




REGEL 

240 

47 

REGEL 

530 

90 

REGEL 

820 

208 




REGEL 

250 

227 

REGEL 

540 

142 

REGEL 

830 

63 




REGEL 

260 

142 

REGEL 

550 

213 

REGEL 

840 

103 




REGEL 

270 

202 

REGEL 

560 

90 

REGEL 

850 

140 




REGEL 

280 

142 

REGEL 

570 

103 

REGEL 

860 

102 




DVCVT, 

9 Qn 

906 

REGET, 

tan 

1 58 

RF.GF.T 

870 

1 79 
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Powerboot 


Deze ’boot’ utility kan alleen in kombinatie met de po¬ 
wer cartridge worden gebruikt. Na het runnen van het 
programma verschijnt de directory op het scherm. 
Met als bijzonderheid dat er voor de programma 
namen getallen verschijnen. Het programma van uw 
keuze wordt geladen door het indrukken van het 
daarbij behorende getal. 

1 rem powerboot / commodore 64 

2 rem door r.a. wolswijk 

3 rem uit zeist 

4 rem 

5 pudef:rem ** boot voor powercart. 

■k k 

6 print"[SHIFT CLR]";:catalog:b=l069 
:print"[HOME]":ifpeek(1024)<>48the 
nb=102 9:print"[HOME]"; 

7 dimd(50):t=40:x=1029:c=b-t 

8 a=a+l:b=b+t:printstr$(a);")":ifpee 
k(b)=34then8 

9 print"[HOME]";tab(28)"[CTRL 9][SPA 
CE]welk[SPACE]prgnr.[CTRL 0]" 

10 printtab(29);:inputp$:ifp$="-"then 
run6 

11 p=val(p$):ifp<lorp>athen:pudef:pri 
nt" [SHIFT CLR]":new 

12 c=c+p*t: fork=ltol7 :d (k) =jieek (c+k) : 
ifpeek(c+k)=34thenl4 

13 next 

14 print"[SHIFT CLR]load";chr$ (34) : fo 
rl=ltol7:ifd(1)=0thenl6 

15 pokex,d(l):x=x+l:next 

16 pokex,44:pokex+l,56:poke631,19:pok 
e632,13:poke633,13 

17 poke634,82:poke635,85;poke636,78:p 
oke637,13:pokel98,.7 :pudef:end 

** EINDE LISTING powerboot ** 


REGEL 

1 

142 

REGEL 

10 

254 

REGEL 

2 

44 

REGEL 

11 

195 

REGEL 

3 

108 

REGEL 

12 

115 

REGEL 

4 

143 

REGEL 

13 

130 

REGEL 

5 

181 

REGEL 

14 

214 

REGEL 

6 

31 

REGEL 

15 

47 

REGEL 

7 

164 

REGEL 

16 

24 

REGEL 

8 

96 

REGEL 

17 

141 

REGEL 

9 

51 




1 Tekst 1 

Na het opstarten van dit programma van Jeroen Dob¬ 
belaere uit Belgie kunt u met eigen ogen zien wat de 


mogelijkheden van de commodore 64 zijn in het 
manipuleren met teksten. De tekst zelf staat in de 
data regels vanaf regel 1000. U kunt hier ook uw 
eigen tekst inzetten. Een regel wordt steeds vooraf 
gegaan door een code die aangeeft hoe een regel op 
het scherm moet verschijnen. Een uitgebreide uitleg 
wordt er in het demo gegeven.Een voorbeeld van zo 
een code is: GROS. G is hierin de code (deze kan 
varieeren van A tot H) R is de richting hier dus rechts 
en drie is het bepalende cijfer. Laat u niet 
ontmoedigen, het lijkt allemaal veel moeilijker dan het 
is. Het programma is erg goed te gebruiken om een 
eigengemaakt programma te verfraaien. 

1 rem tekstverfraaiing (cbm/64) 

2 rem 


rem dobbelaere jeroen 

rem 

rem 9400ninove (belgie) 


poke53280,0:poke53281,0:poke646,1: 

print"[SHIFT CLR]" 

reada$ 

b$=left$(a$,l):a$=right$(a$,len(a$ 
)-l) 

ifb$="?"thenprinta$:goto20 

ifb$="s"thenend 

ifb$="a"thenl00 

ifb$="b"then200 

ifb$="c"then300 

ifb$="d"then400 

ifb$="e"then500 

ifb$ = "f"then60 0 

ifb$ = "g"then7 0 0 

ifb$="p"thenforn=lto500:next:goto2 
0 

ifb$="h"then800 
■print"error end 
forn=ltolen (a$) 

print"[CRSR-DOWN][CRSR-LEFT][SPACE 
][COM Y][CRSR-UP][CRSR-LEFT]"mid$( 
a$,n,1);:next 

forn=lto800:next:print"[CRSR-DOWN] 
[CRSR-LEFT][SPACE][CRSR-UP]":goto2 
0 

gosub900 

forn=ltol9:printtab (20-n)left$(a$, 
n)right$(a$,n)"[CRSR-UP]";next:pri 
nt 

forn=lto500:next:goto20 
gosub900 

forn=lto38:printright$(a$,n)"[CRSR 
-UP]":next:print:forn=lto800:next: 
goto20 
gosub900 

forn=lto38:printtab(39-n)left$(a$, 
n)"[CRSR-UP]":next:print:forn=lto8 
00 : next:goto2 0 
v=val(a$) 
forn=ltov 

form=lto20:print"[SHIFT INST][SPAC 
E]"tab(20)chr$(20)chr$(20)" [CRSR-U 
P]":next:print 
next:goto20 

forn=ltolen(a$) :b$=mid$(a$,len (a$) 
+l-n,1) 

print"[HOME]";:form=lto23:print"[S 
PAGE]":printb$"[CRSR-UP]":next 
print"[SHIFT INST]":next:print"[2x 
CRSR-DOWN][2xCRSR-UP]" 
goto20 

b$ = left$ (a$,3) :b=val(right$ (b$,2)) 
bS=left$(b$,l):a$=mid$(a$,4) 
c$="[40xSPACE]" 

a$=c$+a$+c$:s=l:ifb$="r"thens=-l 
11=1:12=len(a$)-39:ifs=-lthenll=12 
:12 = 1 
fora=ltob 

forn=lltol2steps:foraa=0to9:next 
printmid$(a$,n,38)"[CRSR-UP]":next 
n, a 

goto20 

gosub900 

forn=lto38:form=lton:ifmid$(a$,n,1 
)=" [SPACE]"then830 

print"[SPACE]"mid$(a$,n,1)"[CRSR-L 
EFT]:fora=lto2:nexta,m 
print"[SPACE]"iprinttab(n)mid$(a$, 
n. 1) " [ 2xCRSR-nP 1 " rnext !nrnnt 'nr-int 


Lorr’filOcJrirt’ hifn / 
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:goto2 0 

900 iflen{a$)<37thena$="[SPACE]"+a$+"[ 
SPACE]":goto900 

905 iflen (a$)<38thena$=a$ + "[SPACE] " 

910 return 

1000 data"?[SHIFT CLR][4xCRSR-D0WN]" 
1010 data"adit[SPACE]is[SPACE]een[SPACE 
]voorbeeld[SPACE]van[SPACE]enkele[ 
SPACE]" 

1020 data"asoorten[SPACE]van[SPACE]teks 
t[SPACE]opkomen." 

1030 data"?[3xCRSR-DOWN]" 

1040 data"bje[SPACE]kan[SPACE]bijvoorde 
eld[SPACE]zo[SPACE]opkomen...","?[ 
2xCRSR-UP]" 

1050 data"ben[SPACE]er[SPACE]dan[SPACE] 
nog[SPACE]eens[SPACE]tussenkomen" 
1060 data"bof[SPACE]er[SPACE]gewoon[SPA 
CE]onder[SPACE]komen","?[CRSR-DOWN 
] 

1070 data"cje[SPACE]kan[SPACE]ook[SPACE 
]van[SPACE]links[SPACE]komen" 

1080 data"den[SPACE]dus[SPACE]ook[SPACE 
]van[SPACE]rechts ..." 

1090 data"a[SPACE]en[SPACE]regels[SPACE 
]wegdoen[SPACE]is[SPACE]niets,[SPA 
CE]hier[SPACE]mee" 

1100 data"bkijk[SPACE]maar[SPACE]:","?[ 
HOME][4XCRSR-DOWN]" 

1110 data"el6","?[SHIFT CLR]" 

1130 data"fooit[SPACE]al[SPACE]eens[SPA 
CE]vallende[SPACE]letters[SPACE]ge 
zien" 

1140 data"fnog[SPACE]niet[SPACE]?,[SPAC 
E]dan[SPACE]zie[SPACE]je[SPACE]ze[ 
SPACE]nu[SPACE]!!!" 


tleg[SPACE]als[SPACE]nodig." 

1310 data"ap.[SPACE]:[SPACE]pause","p." 

1320 data"aa[SPACE]dient[SPACE]hier[SPA 
CE]voor." 

1330 data"bb[SPACE]dient[SPACE]hier[SPA 
CE]voor." 

1340 data"cc[SPACE]dient[SPACE]hier[SPA 
CE]voor." 

1350 data"dd[SPACE]dient[SPACE]hier[SPA 
CE]voor." 

1360 data"ae[SPACE]laantal[SPACE];[SPAC 
E]regels[SPACE]wegdoen" 

137 0 data"a[SPACE]voorbeeld[SPACE] :", "? 
[HOME]" 

1380 data"el8","?[SHIFT CLR]" 

1390 data"ff[SPACE]dient[SPACE]hier[SPA 
CE]voor." 

1400 data"ag+richting+aantal{[SPACE]in[ 
SPACE]twee[SPACE]cijfers[SPACE])" 

1410 data"a[SPACE]voorbeeld:[SPACE]gl03 
****[SPACE]commodore[SPACE]info[SP 
ACE]****" 

1420 data"gl03****[SPACE]commodore[SPAC 

E]info[SPACE]****" 

1430 data"ahetzelfde,[SPACE]maar[SPACE] 
1[SPACE]wordt[SPACE]r" 

1440 data"gr03****[SPACE]commodore[SPAC 

E]info[SPACE]****" 

1450 data"hh[SPACE]dient[SPACE]hier[SPA 
CE]voor" 

1460 data"hverder[SPACE]hebben[SPACE]we 
[SPACE]nog[SPACE]?[SPACE](print)" 

1470 data"cen[SPACE]s(top)" 

1480 data"s." 

** EINDE LISTING tekst** 



1150 

data"fdat[SPACE]is[SPACE]eens[SPAC 









E]iets[SPACE]anders,[SPACE]hee ..." 








1160 

data"gl04doorlopende[SPACE]tekst[S 

REGEL 

1 

4 

REGEL 

530 

167 



PACE]gaat[SPACE]hier[SPACE]ook[SPA 

REGEL 

2 

143 

REGEL 

600 

119 



CE]mee,[SPACE]zoals[SPACE]je[SPACE 

REGEL 

3 

23 

REGEL 

610 

0 



]hier[SPACE]ziet. .." 

REGEL 

4 

60 

REGEL 

620 

136 

MiiSiiM 

1170 

data"gr04en[SPACE]je[SPACE]kan[SPA 

REGEL 

5 

36 

REGEL 

630 

235 

“li , 


CE]er[SPACE]ook[SPACE]links[SPACE] 

REGEL 

6 

250 

REGEL 

700 

23 



en[SPACE]rechts[SPACE]mee[SPACE]ga 

REGEL 

7 

143 

REGEL 

710 

37 

yiiilJiiiy y. W 


an. . . [2xCRSR-DOWN] [CRSR-UP]" 

REGEL 

10 

157 

REGEL 

720 

93 


1180 

data"gr01dit[SPACE]gaat[SPACE]dus[ 

REGEL 

20 

236 

REGEL 

730 

9 



SPACE]nu[SPACE]naar[SPACE]rechts" 

KJliÜE Li 

30 

68 

J_i 

731 

239 


1190 

data"gl01en[SPACE]dit[SPACE]dus[SP 

REGEL 

40 

240 

REGEL 

740 

139 



ACE]naar[SPACE]links[SPACE]weer" 

REGEL 

50 

97 

REGEL 

750 

212 

V 

1200 

data"gr01dit[SPACE]gaat[SPACE]dus[ 

REGEL 

60 

96 

REGEL 

760 

118 



SPACE]nu[SPACE]naar[SPACE]rechts" 

REGEL 

70 

98 

REGEL 

770 

235 


1210 

data"gl01en[SPACE]dit[SPACE]dus[SP 

REGEL 

80 

100 

REGEL 

800 

38 



ACE]naar[SPACE]links[SPACE]weer" 

REGEL 

90 

102 

REGEL 

810 

242 


1220 

data"p." 

REGEL 

91 

104 

REGEL 

820 

123 


1230 

data"hdit[SPACE]lijkt[SPACE]op[SPA 

REGEL 

92 

106 

REGEL 

830 

14 



CE]vallende[SPACE]letters," 

REGEL 

93 

108 

REGEL 

900 

124 


1240 

data"hmaar[SPACE]het[SPACE]is[SPAC 

REGEL 

94 

170 

REGEL 

905 

51 



E]het[SPACE]niet[SPACE]!!!!!" 

REGEL 

95 

110 

REGEL 

910 

142 

l" 

1250 

data"p.","?[SHIFT CLR]" 

REGEL 

96 

33 

REGEL 

1000 

221 


1260 

data"anu[SPACE]nog[SPACE]eens[SPAC 

REGEL 

100 

207 

REGEL 

1010 

152 

* -Tfrnti]?iNg 


E] alles [SPACE],op [SPACE] een [SPACE] r 

REGEL 

110 

190 

REGEL 

1020 

233 



ijtje[SPACE]:" 

REGEL 

120 

37 

REGEL 

1030 

57 


1270 

data"ahet[SPACE]werkt[SPACE]met[SP 

REGEL 

200 

38 

REGEL 

1040 

6 



ACE]data,[SPACE]en[SPACE]je[SPACE] 

REGEL 

210 

15 

REGEL 

1050 

113 



moet[SPACE]voor[SPACE]je" 

REGEL 

220 

204 

REGEL 

1060 

148 


1280 

data"azin[SPACE]telkens[SPACE]een[ 

REGEL 

300 

38 

REGEL 

1070 

60 



SPACE]code[SPACE]zetten" 

REGEL 

310 

250 

REGEL 

1080 

171 


1289 

data"adit[SPACE]wordt[SPACE]bijvoo 

REGEL 

400 

38 

REGEL 

1090 

176 



rbeeld[SPACE]:" 

REGEL 

410 

42 

REGEL 

1100 

147 


1290 

data"aadit[SPACE]wordt[SPACE]bijvo 

REGEL 

500 

131 

REGEL 

1110 

181 



orbeeld[SPACE]:" 

REGEL 

510 

172 

REGEL 

1130 

48 

-rrmr 

1300 

data"anu[SPACE]de[SPACE]effecten[S 

REGEL 

520 

232 

REGEL 

1140 

123 



PACE]met[SPACE]code","aen[SPACE]ui 
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REGEL 

1150 

39 

REGEL 

1340 

93 

430 

ifsb=119then470 

REGEL 

1160 

187 

REGEL 

1350 

95 

440 

goto4 90 

REGEL 

1170 

247 

REGEL 

1360 

46 

450 

bb=bb-hs:ifbb<18thenbb=18 

REGEL 

1180 

57 

REGEL 

1370 

166 

460 

goto480 

REGEL 

1190 

241 

REGEL 

1380 

183 

470 

bb=bb+hs:ifbb>66thenbb=66 

REGEL 

1200 

57 

REGEL 

1390 

99 

480 

poke53254,bb 

REGEL 

1210 

241 

REGEL 

1400 

209 

490 

rem bal 2 

REGEL 

1220 

69 

REGEL 

1410 

251 

500 

onrbgotoSlO,570,600,510 

REGEL 

1230 

167 

REGEL 

1420 

222 


vb=vb+bs:poke53251,vb:ifvb>dbthen5 

REGEL 

1240 

99 

REGEL 

1430 

30 


30 

REGEL 

1250 

135 

REGEL 

1440 

228 

520 

goto630 

REGEL 

1260 

164 

REGEL 

1450 

57 

530 

ifbb<hb-llthen690 

REGEL 

1270 

206 

REGEL 

1460 

24 

540 

ifbb>hb+3then6 90 

REGEL 

1280 

220 

REGEL 

1470 

52 

550 

rb=2:poke54273,21:poke54272,31:pok 

REGEL 

1289 

42 

REGEL 

1480 

7 


e54276, 17:forp=ltol0 0:next;poke542 

REGEL 

1290 

107 





76, 16 

REGEL 

1300 

2 




560 

goto630 

REGEL 

1310 

44 




570 

vb=vb-bs:poke53251, vb 

REGEL 

1320 

89 




580 

ifvb<7 5thenrb=3:bs=bs*1.05:poke532 

REGEL 

1330 

91 





51,0 







590 

goto630 




Duo-bal 



600 

rem opnieuw 


Wim Stadhouders, een van onze regelmatige inzen¬ 
ders van programma’s en kenners weten dat dit altijd 
doordachte programma’s zijn, heeft voor ons een spel 
gemaakt dat hij Duo-bal heeft genoemd. Er bevinden 
zich, zowel links als rechts op het scherm, vier kolom¬ 
men met daarin ballen. Deze komen willekeurig naar 
beneden. Door het verplaatsen van een slaghout 
moet u de ballen zien tegen te houden. Het spel is 
verloren als u van een groep vier ballen niet tijdig 
heeft teruggeslagen. 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


330 

340 

350 

360 

370 

380 

390 

400 

410 

420 


stadhouders 


[HOME][OOM 4]" 


rem *** duo-bal 
rem *** door w.a. 
rem *** 

rem *** terneuzen 
goto940 
rem lus 

sc=int (ti/60) :print' 

SC 

rem linker blok 
sa=peek(56321) 
ifsa=251then220 
ifsa=247then240 
goto2 60 

ba=ba-hs:ifba<28thenba=28 
goto250 

ba=ba+hs:ifba>7 6thenba=7 6 
poke532 52,ba 
rem bal verplaatsen 
onragoto280, 340, 370 
va=va+as:poke5324 9,va:ifva>dathen3 
00 

goto400 

ifba<ha-llthen640 

ifba>ha+3then640 

ra=2:poke54273,16:poke54272,195:po 
ke54276,17:forp=ltol00:next:poke54 
276,16 
goto4 0 0 

va=va-as:poke53249,va 

ifva<75thenra=3:as=as*1.05:poke532 

49,0 

goto400 

rem opnieuw 

wa=int(4*rnd(1)):ha=32+wa*16:ra=l 
va=74:poke53248,ha:poke53249,va 
rem rechter blok 
sb=peek(56320) 
ifsb=123then450 


620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 


880 

890 

900 

910 

920 

930 

940 

950 


vb=74:poke53250,hb:poke53251,vb 
gotolSO 

rem links mist 
ra=3:fa=fa-l 
gosub740 

pokell45+fa*2,32;iffa=0then770 

poke53249,0:gotol50 

rem rechts mist 

rb=3:fb=fb-l 

gosub7 4 0 

pokell76+fb*2,32:iffb=0then770 
poke53251,0:gotolSO 
poke53280,ll:poke54273,28:poke5427 
2,49:poke54276,33:forp=lto400:next 
poke54273,14:poke54272,24:forp=lto 
800:next:poke54276,32 
forp=lto800:next:poke53280,5:retur 
n 

rem einde spel 

poke53281, 10:poke54273, 16:poke5427 
2,195:poke54276,17 

print"[HOME][CRSR-DOWN][CTRL 2][CT 
RL 9]<<<[SPACE]einde[SPACE]spel[SP 
ACE]...[SPACE]>>>" 

forp=lto800:next:poke54273, 18:forp 
= lto800:next:poke54273,16 
forp=lto8 0 0:next:poke54273, 19:forp 
=ltol600:next:poke54276,16:poke532 
81,13 

forp=ltol000:next:print"[SHIFT CLR 
]" :poke53269,0 
geta$:ifa$=""then850 
goto830 

print"[CTRL 6]wilt[SPACE]u:" 
print"[CRSR-DOWN]1.[SPACE]een[SPAC 
E]spel[SPACE]met[SPACE]andere[SPAC 
E]condities" 

print"2.[SPACE]nog[SPACE]een[SPACE 

]spel[SPACE]met[SPACE]dezelfde[SPA 

CE]condities" 

print"3.[SPACE]stoppen." 

inputkS 

ifk$="l"thenll50 

ifk$="2"thenl240 

ifk$="3"thensys65126:end 

goto890 

print"[SHIFT CLR]";poke53281,13:po 
ke53280,5 

forp=832to894:pokep,0:next:poke832 
,60:poke835, 12 6:poke83 8, 255:poke84 




( 'omnn/(fniY hifu 7 H'7 
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poke844,255:poke847,255:poke850,12 
6:poke853,60 

poke2040,13:poke2041,13:poke53287, 
6:poke532 88,9 

forp=8 9 6to958;pokep,0:next;forp=89 
6to917step3:pokep,255:next 
poke53277,12:poke53271,0:poke2042, 
14:poke2043,14:poke53264, 10 
poke5 32 8 9,6:poke5 32 90,9 
forp=54272to54296:pokep,0:next:pok 
e54278,72:poke54296, 15 
print"[SHIFT CLR][CRSR-DOWN][GOM 4 
][9xSPACE]<[SPACE]d[SPACE]u[SPACE] 
o[SPACE]-[SPACE]b[SPACE]a[SPACE]1[ 
SPACE]>" 

print"[CRSR-DOWN]zowel[SPACE]links 
[SPACE]als[2xSPACE]rechts[SPACE]op 
[SPACE]het[SPACE]scherm" 
print"bevinden[SPACE]zich[SPACE]vi 
er[SPACE]kolommen[SPACE]met[SPACE] 
daarin" 

prinf'ballen." 

print"deze[SPACE]komen[SPACE]wille 
keurig[SPACE]naar[SPACE]beneden." 
prinf'door[SPACE]het[SPACE]verplaa 
tsen[SPACE]van[SPACE]een[SPACE]sla 
ghout" 

print"moet[SPACE]u[SPACE]de[SPACE] 
ballen[SPACE]zien[SPACE]tegen[SPAC 
E]te[SPACE]houden," 

print"zodat[SPACE]ze[SPACE]weer[SP 
ACE]naar[SPACE]boven[SPACE]gaan." 
print"u[SPACE]hebt[SPACE]verloren, 
[SPACE]als[SPACE]u[SPACE]van[SPACE 
]een[SPACE]groep" 

print"vier[SPACE]ballen[SPACE]niet 
[SPACE]tijdig[SPACE]hebt[SPACE]ter 
ug-" 

prinf'geslagen." 

print"[CRSR-DOWN]<[SPACE]druk[SPAC 
E]op[SPACE]een[SPACE]toets[SPACE]o 
m[SPACE]verder[SPACE]te[SPACE]gaan 
[SPACE]>" 

getaS:ifa$=""thenll40 
rem keuzes 

print"[SHIFT CLR][CTRL 7][CRSR-DOW 


N][6xSPACE]<[SPACE]keuze-mogelijkh 
eden[SPACE]>" 

[70 print"[CRSR-DOWN]de[SPACE]beginsne 
Iheid,[SPACE]waarmee[SPACE]de[SPAC 
E]ballen[SPACE]naarbeneden[SPACE]k 
omen[SPACE] (1-8) " 

L80 inputqs:ifqs<lorqs>8thenll80 
L90 as=qs:bs=qs*l.1 

]00 print"[CRSR-DOWN]de[SPACE]snelheid 
,[SPACE]waarmee[SPACE]u[SPACE]het[ 
SPACE]slaghout[SPACE]ver-plaatst[S 
PAGE](1-4)" 

?10 inpuths:ifhs<lorhs>4thGnl210 
>20 print"[CRSR-DOWN]de[SPACE]hoogte, [ 
SPACE]waarover[SPACE]de[SPACE]bal[ 
SPACE]valt[SPACE](5-18)" 

>30 inputvh:ifvh<5orvh>18thenl230 
MO rem start spel 
>50 as=qs:bs=q3*l. 1 

MO print"[SHIFT CLR][SxSPACE]score" 
>70 print"[CTRL 6][CRSR-DOWN][CTRL 9][ 
40xSPACE]"; 

>80 print"[COM L][CTRL 0][CTRL 1]W[SHI 
FT -]W[SHIFT -]W[SHIFT -]W[SHIFT - 
][22xSPACE][SHIFT -]W[SHIFT -]W[SH 
IFT -]W[SHIFT -]W[CTRL 9][CTRL 6][ 
COM J]"; 

>90 forp=ltovh:print"[CTRL 9][COM L][C 
TRL 0] [CTRL 1] [SPACE] [SHIFT -] [SHI 
FT SPACE][SHIFT -][SHIFT SPACE][SH 
IFT -] [SHIFT SPACE] [SHIFT -] [22xSP 
ACE] [SHIFT -] [SHIFT SPACE] [SHIFT - 
] [SHIFT SPACE] [SHIFT -] [SHIFT SPAC 
E][SHIFT -][SHIFT SPACE][CTRL 9][C 
TRL 6] [COM J] '"; : next 
300 rem variabelen 

310 ra=3:fa=4:da=7 6+vh*8:ba=28:poke532 

52,ba;p=84+vh*8:poke53253,p 
320 rb=3:fb=4:db=da:bb=18:poke53254,bb 

:poke53255, p 

330 poke53249,0:poke53251,0:poke53269, 

15:ti$="000000" 

340 gotol50 

EINDE LISTING duo-bal ** 
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REGEL 

1130 

184 

REGEL 

1240 

81 

39 

dataf72093c0a2008e04d4a2118e04d4a6 

REGEL 

1140 

147 

REGEL 

1250 

75 


fca4fd2082c08d45c28e46c2a956 

REGEL 

1150 

102 

REGEL 

1260 

236 

40 

data8dcd05a21fa0e4c8d0fde8d0f84cec 

REGEL 

1160 

129 

REGEL 

1270 

89 


c0ee2 0d0ad00dcc9 6fdOf 64c0 0c0 

REGEL 

1170 

1 

REGEL 

1280 

117 

41 

datal24452554b20565555524b4e4f5000 

REGEL 

1180 

36 

REGEL 

1290 

27 


53434f52453a2020202020202000 

REGEL 

1190 

75 

REGEL 

1300 

104 

42 

data0103052a2b2c51525354557a7b7cal 

REGEL 

1200 

164 

REGEL 

1310 

166 


a3a5000000000000000000000000 

REGEL 

1210 

255 

REGEL 

1320 

198 



REGEL 

1220 

123 

REGEL 

1330 

164 

** 

EINDE LISTING explosieven ** 

REGEL 

1230 

67 

REGEL 

1340 

3 



Explosiever! 


Het spel explosiever!, gemaakt door Thom Vreven uit 
Bennekom, is een aktiespel. Het wordt gespeeld met 
de joystick in poort twee. Het is de bedoeling zoveel 
mogelijk tijdbommen onschadelijk te maken voordat 
ze exploderen. Per bom die ontploft verschijnen er 
twee nieuwe voor in de plaats en voor elke geruimde 
bom verschijnt er een nieuwe. Het spel is afgelopen 
als men te dicht bij een ontploffende bom is. Per bom 
krijgt men punten, afhankelijk van de tijd die de bom 
aan geeft. Het programma is in M.C. geschreven en 
is door een basicloader op z’n plaats gezet. 

1 rem explosieven / thom vreven 

10 forr=0to22:reada$:forb=ltolen (a$)s 
tep2:c$=mid$(a$,b,l):gosubl2:c=16* 

g 

11 c$=mid${a$,b+l,l):gosubl2:c=c+g:po 
ke49152+t,c:t=t+l:nextb,r:sys49152 

12 g=asc(c$)-48:ifg>9theng=g-7 

13 return 

20 data2044e5a200a90e9d00d89d00d99d00 
da9d00dbe8d0fla9a09d0004e8e0 

21 data78d0f8a2009dc007e8e028d0f8a200 
8e20d08e21d0189da8069d9f049d 

22 data78049d90059db7059dcf068a6928b0 
0 6aaa9a04c33c0a2 07 8e8 602a201 

23 dataa00d200ce5a0c2a961201eabae00dc 
e06fd0f9a90f8dl8d4a9018d00d4 

2 4 dataSdO 6d4a90a8d01d4 8d05d4 4cclc08a 

a204c888f00918692890f8e84c86 
25 datac060a6a2bd00c0186911b0034c99c0 

6904a8e6a2bd00cll86922b0034c 
2 6 dataaScO 6 9022 083c08dbec0 8ebfc0a93 9 

8de90560a20d86f72093c0e6fbc6 

27 dataf7d0f7a201a00d200ce5a0c2a97020 
leaba21486f9a20a86fc86faa200 

28 data86f786f8a201a014200ce5a6f7a5f8 
20cdbdc6fba4fbc005d035a200bd 

29 data0004c966d005a9209d0004bd0005c9 
66d005a9209d0005bd0006c966d0 

30 data05a9209d0006bd0007c966d005a920 
9d0007e8d0cdc000f0034ca5cla2 

31 data0a86fba2048e59cl8e4ecla200bd00 
07c9319007c93ab003de0007c930 

32 datad03486fea0008c04d4a0818c04d4ac 
4ecl8al8e952b001888c84cl8d83 

33 datacla000b97ec2aaa9669d7205c8c011 
d0f22093c02093c0a6fee8d0b7ac 

34 data4eclc0 07 f0 0 9ee4eclee59cl4c4acl 
a6f9a4faad00dc85fe2901d00188 

35 dataa5fe2 902d0 01c8a5fe2 904d00IcaaS 
fe2908d001e8c002d001c8c018d0 

36 data0188e000d001e8e027d001ca86fc84 
fda6f9a4fa2082c08df4cl8ef5cl 


REGEL 

1 

30 

REGEL 

29 

247 

REGEL 

10 

12 

REGEL 

3 0 

45 

REGEL 

11 

215 

REGEL 

31 

78 

REGEL 

12 

77 

REGEL 

32 

109 

REGEL 

13 

142 

REGEL 

33 

149 

REGEL 

20 

135 

REGEL 

34 

211 

REGEL 

21 

120 

REGEL 

35 

101 

REGEL 

22 

74 

REGEL 

36 

166 

REGEL 

23 

166 

REGEL 

37 

200 

REGEL 

24 

121 

REGEL 

38 

117 

REGEL 

25 

38 

REGEL 

39 

116 

REGEL 

26 

168 

REGEL 

40 

23 

REGEL 

27 

131 

REGEL 

41 

102 

REGEL 

28 

181 

REGEL 

42 

87 


Files Uitprinten 


Het programma files uitprinten is gebaseerd op een 
oud thema. De maker E.J. Lubberts uit Deventer er¬ 
gerde zich aan het vele verspillen van papier bij het 
uitprinten van directories. Hij heeft daarom een pro¬ 
gramma geschreven dat de keuze geeft deze direc¬ 
tories in een, twee of in drie kolommen uit te printen. 
Er kan een keuze gemaakt worden door middel van 
de funktietoetsen. 

1 rem *********************** 

2 rem * files uitprinten in * 

3 rem * 1,2 of 3 kolommen * 

4 rem * e.j.lubberts * 

5 rem * * 

6 rem * deventer * 

7 rem *********************** 

10 poke53280,l:poke53281,l:printchr$( 

30) chr$ (14) chr.$ (147) 

20 print:print 

30 print"[CTRL 9][14xSPACE]file[SPACE 

]printer[14xSPACE]" 

40 print:print:print 

50 print"Maak[SPACE]Uw[SPACE]keuze." 

60 print:print:print:print 

70 prinf'fl[SPACE]=[SPACE]directory[S 

PACE]op[SPACE]het[SPACE]scherm[SPA 
CE]laten[SPACE]zien." 

80 print 

90 print"f3[SPACE]=[SPACE]directory[S 

PACE]in[SPACE]1[SPACE]kolom[SPACE] 
uitprinten." 

100 print:print 

110 print"f5[SPACE]=[SPACE]directory[S 

PACE]in[SPACE]2[SPACE]kolommen[SPA 
CE]uitprinten." 

120 print 

130 print"f7[SPACE]=[SPACE]directory[S 

PACE]in[SPACE]3[SPACE]kolommen[SPA 
CE]uitprinten." 

140 pokel98,0:waitl98,1 

1 c; n . ■; -P/iC —/ I 'uo \ 4--u„v^oriA 



















print-out priht-out print-out print-out print-out 




0 


ACE]naam[SPACE] : [SPACE]";mid$(cc$, 


180 

ifc$=chr$(136)thengosubSOO:gosub10 


2,13) ; 



00 

630 

print#1," [ SPACE]nr.:";id$ 


185 

ifc$<>chr$(133)orc$<>chr$(134) orc$ 

640 

print#l, " [17xSPACE] - 



ochr $ (135) orc$<>chr$ (13 6) then 10 


If 


190 

gotol50 

650 

print#l,"[17xSPACE]"mid$(cc$,2 8,16 


200 

2^ ^ ■)frX7*r'^'<*fX7*C7*r7‘r7^'^7^'^7*r7'C7^7'^7*r7'C7^';^A 


) 


210 

rem * dj. op het scherm * 

660 

print#l, " [17xSPACE] - 


220 

rem ********************** 


--rt 


230 

print" [SHIFT CLR] " ropenl,8,0,"$":p 

670 

a=atl 



oke781,l:3Ys65478:geta$/a$ 

690 

forx=ltoint(a/1) 


240 

geta$,a$ : ifst=64thensys65484 : close 

700 

print#l, " [20xSPACE]"f$(x) ;" [SxSPAC 



1 : goto2 7 5 


E ] "; 


250 

geta$,b$:print"[CRSR-LEFT]"asc(a$+ 

710 

print#1,f$ (x+int (a/1) ) [SxSPACE] " 



chr $ (0) )+256*asc(b$ + chr$ (0) ) ; 


; 


260 

geta$;printa$; : ifa$<>""then260 

720 

print#1,f$(t2*int(a/1) ) 


270 

print : goto240 

730 

next : goto750 


275 

print:print"[7xSPACE][CTRL 9][SPAC 

740 

print#l,mid$(cc$,28,16) 



E ] Druk [ SPACE ] op [ SPACE ] een [ SPACE ] to 

750 

closel 



ets[SPACE][CTRL 0] " 

760 

printchr$(30)chr$(14)chr$(147) : run 


280 

pokel98,0:waitl98,l:gotol0 


10 


290 


770 

return 


300 

rem ****************************** 

. . . . 

rem ************************* 



★ -k 

790 

rem * 2 kolommen uitprinten * 


310 

rem * dj.opvragen voor uitprinten 

800 

rem ************************* 

w* * r ^ 


* 

810 

openl, 4 

t t t ««1^44 A 

320 

rem ****************************** 

820 

print#l:cmdl;printchr$(27)chr$(15) 



■k k 


; :printchr$(27)"s"chr$(0) ; 

“i 

330 

dimf$(152) 

830 

print#l:print#l 


340 

dimg$ ( 152 ) 

840 

print#l,chr$ (27)"a"chr$ ( 5 ) ;" [7xSPA 


350 

printchr$ (147)chr$(13)chr $( 142 ) 


CE ] naam [ SPACE ]:[ SPACE ]"; mid$ ( cc$,2 

i' -»> .Sawscï 
. • * •■ 

360 

open9,8,0, "$" 


,16).; 


370 

get#9,a$,b$:n0=0 

850 

print#l,"[SPACE]nr.[SPACE]:[SPACE] 


380 

get#9,a$,b$:z0=0:x$="" 


";id$; 


390 

ifst<>0then470 

860 

print#1,"[4xSPACE]"mid$(cc$,28,16) 


400 

get#9,a$,b$ 

870 

printtl,"[7xSPACE]- 


410 

n$=chr$ (0) 




420 

g$=right$("[6xSPACE]"+str$(asc(a$+ 





n$)+asc(b$+n$)*256),6) 

890 

ifa/2<>int(a/2)anda-2*int(a/2)=lth 


430 

get# 9,a$:ifa$=chr$(34)thenz0 = sgn(z 


ena=a+2:goto900 



0 + 1) 

900 

forx=ltoint (a/2) 


440 

ifa$=""thenn0=n0+l:nl=n0-l:gosub48 

910 

print#l, "[SxSPACE] "f$ (x) ;" [SxSPACE 



0:goto380 


]"; 


450 

ifz0=ltheng$=g$+a$ 

920 

print#l,f$(xtint(a/2));"[SxSPACE]" 


460 

goto430 


; 


470 

close9:goto590 

930 

print#l,f$(x+2*int(a/2)) 


480 

ifn0=lthen560 

940 

next:goto9 60 


490 

iflen (g$)=6then5 80 

950 

print#1,mid$(cc$,28,16) 


500 

aa$ = "":fori=8to24:c$=mid$(g$, i, 1) : 

960 

closel 



ifc$=chr${34)theni=24:goto520 

970 

printchr$ (30)chr$ (14)chr$(147) :run 


510 

aa$=aa$tc$ 


10 


520 

nexti:g$(nl)=left$(aa$+"[19xSPACE] 

980 

return 



", 18)tleft$(g$,6)+"[2xSPACE]" + id$ 

990 



530 

hl$=mid$(g$(nl),22,3):h2$=left$(g$ 

1000 

rem ************************* 



(nl),16) 

1010 

rem * 3 kolommen uitprinten * 


540 

h$=hl$t"[SPACE]"+h2$+"[SPACE]"+mid 

1020 

rem ************************* 



$ (g$,2 6,3) :print"[7xSPACE]"h$:a=at 

1030 

openl, 4 



l:f$ (a)=h$:printchr$(142) 

1040 

print#l:cmdl:printchr$(27)chr$(15) 


550 

return 


;:printchr$(27)"s"chr$ ( 0); 


560 

cc$=right$(g$,2 4) :id$=mid$(cc$,20, 

1050 

print#l,chr$ { 21 ) "a"chr$ (5);"[2xSPA 



5):print"[6xSPACE],[CTRL 9]";cc$:r 


CE]naam[SPACE]:[SPACE]";mid$(cc$,2 



eturn 


,16) ; 


570 

print 

1060 

print#l,"[SxSPACE]nr.[SPACE]:[SPAC 


580 

print"[SxSPACE]";g$;"blokken[SPACE 


E]";id$; 



]vrij.":cc$=cc$tg$+"[SPACE[blokken 

1070 

print#l,"[GxSPACE]"mid$(cc$,28,16) 



[SPACE]vrij.[2xSPACE]"+da$:return 

1080 

print#l,"[SPACE]================== 


590 

:return 


It . 


592 

rem ********************** 

1090 

print#l,"- 


594 

rem * 1 kolom uitprinten * 


M 


596 

rem ********************** 

1100 

ifa/3<>int(a/3)anda-3*int (a/3)=2th 


600 

openl,4 


ena=a + 3:gotol12 0 


610 

print#1:cmdl:printchr$(27)chr${15) 

1110 

ifa/3<>int(a/3)anda-3*int(a/3)=lth 



;:printchr$(27)"s"chr$(0); 


ena=a+3:gotoll20 


620 

print#1,chr$(27)"a"chr$ (5) ;"[17xSP 

1120 

forx=ltoint(a/3) 


41 


Cdnthtt^orè hith 7lH7' 
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1130 

print#l,"[SFACE] "f$(X) ;"[3xSPACE]" 

REGEL 

1050 

74 



REGEL 

1060 

104 

1140 

print#l, f$ (x+int(a/3));"[3xSPACE]" 

REGEL 

1070 

39 



REGEL 

1080 

228 

1150 

print#l,f$(x+2*int (a/3)) 

REGEL 

1090 

95 

1160 

next:gotollSO 

REGEL 

1100 

251 

1170 

print#l,mid$ (gc$, 28,16) 

REGEL 

1110 

250 

1180 

closel 

REGEL 

1120 

135 

1190 

printchr$(30)chr$(14)chr$(147):run 

REGEL 

1130 

6 


10 

REGEL 

1140 

147 

1200 

return 

REGEL 

1150 

183 



REGEL 

1160 

15 

** EINDE LISTING files uitprinten ** 

REGEL 

1170 

227 



REGEL 

1180 

209 



REGEL 

1190 

106 



REGEL 

1200 

142 


REGEL 

1 

85 

REGEL 

490 

54 

REGEL 

2 

255 

REGEL 

500 

254 

REGEL 

3 

156 

REGEL 

510 

15 

REGEL 

4 

49 

REGEL 

520 

13 

REGEL 

5 

167 

REGEL 

530 

5 

REGEL 

6 

162 

REGEL 

540 

164 

REGEL 

7 

85 

REGEL 

550 

142 

REGEL 

10 

166 

REGEL 

560 

198 

REGEL 

20 

108 

REGEL 

570 

153 

REGEL 

30 

51 

REGEL 

580 

62 

REGEL 

40 

63 

REGEL 

590 

200 

REGEL 

50 

85 

REGEL 

592 

43 

REGEL 

60 

18 

REGEL 

594 

168 

REGEL 

70 

96 

REGEL 

596 

43 

REGEL 

80 

153 

REGEL 

600 

48 

REGEL 

90 

210 

REGEL 

610 

76 

REGEL 

100 

108 

REGEL 

620 

71 

REGEL 

110 

181 

REGEL 

630 

45 

REGEL 

120 

153 

REGEL 

640 

95 

REGEL 

130 

184 

REGEL 

650 

39 

REGEL 

140 

96 

REGEL 

660 

95 

REGEL 

150 

206 

REGEL 

670 

15 

REGEL 

160 

120 

REGEL 

690 

133 

REGEL 

170 

123 

REGEL 

700 

6 

REGEL 

180 

165 

REGEL 

710 

145 

REGEL 

185 

145 

REGEL 

720 

93 

REGEL 

190 

31 

REGEL 

730 

225 

REGEL 

200 

43 

REGEL 

740 

227 

REGEL 

210 

1 

REGEL 

750 

209 

REGEL 

220 

43 

REGEL 

760 

106 

REGEL 

230 

83 

REGEL 

770 

142 

REGEL 

240 

219 

REGEL 

780 

169 

REGEL 

250 

87 

REGEL 

790 

137 

REGEL 

260 

138 

REGEL 

800 

169 

REGEL 

270 

242 

REGEL 

810 

48 

REGEL 

275 

16 

REGEL 

820 

76 

REGEL 

280 

132 

REGEL 

830 

204 

REGEL 

290 

58 

REGEL 

840 

74 

REGEL 

300 

207 

REGEL 

850 

104 

REGEL 

310 

121 

REGEL 

860 

39 

REGEL 

320 

207 

REGEL 

870 

84 

REGEL 

330 

217 

REGEL 

890 

202 

REGEL 

340 

218 

REGEL 

900 

134 

REGEL 

350 

120 

REGEL 

910 

6 

REGEL 

360 

44 

REGEL 

920 

146 

REGEL 

370 

186 

REGEL 

930 

182 

REGEL 

380 

114 

REGEL 

940 

228 

REGEL 

390 

8 

REGEL 

950 

227 

REGEL 

400 

32 

REGEL 

960 

209 

REGEL 

410 

108 

REGEL 

970 

106 

REGEL 

420 

192 

REGEL 

980 

142 

REGEL 

430 

54 

REGEL 

990 

58 

REGEL 

440 

156 

REGEL 

1000 

169 

REGEL 

450 

54 

REGEL 

1010 

138 

REGEL 

460 

32 

REGEL 

1020 

169 

REGEL 

470 

58 

REGEL 

1030 

48 

REGEL 

480 

46 

REGEL 

1040 

76 


hestell®" 

OUDE NUMMERS 

Hieronder volgt een overzicht van de 
verschenen en nog beschikbare nummers. 


Jaar 

Aantal verschenen 

nummers 

Nog beschikbaar 

1984 

5 

niets 

1985 

10 

alle nummers 

1986 

9 

alle nummers 


Reeds verschenen nummers zijn na te bestellen. 
Maar, helaas, NIET per brief, kaart of telefonisch. 
We leveren die oude nummers alleen bij 
vooruitbetaling op onze giro 1585491 t.n.v. Sala 
Communications/SAC te Blaricum of op onze 
bank in België BBL nr. 310050602562. 

De prijs is ƒ 6,75 per nummer 
(dus aangeven welk nummer). 
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prijsvraag ** prijsvraag ** prijsvraag 


D oe iets leuks met uw computer- 
hobby en zendt uw zelfgemaakte 
programma in. 


PRIJSVRAAG voorwaarden: 

° maximale lengte van het program¬ 
ma 150 regels. 

Inzendingen voor serieuze toepas¬ 
singen mogen wat groter van lengte 
zijn. 

° Alleen originele programma’s mo¬ 
gen worden ingezonden, de inzen¬ 
der blijft hiervoor verantwoordelijk! 
Inzending alleen op een magnetisch 
medium (cassette of diskette). 

° Geen inzendingen die u ook naar 
andere bladen stuurt of heeft ge¬ 
stuurd. 


Zo kunt u winnen: 

1) Als beste inzender in uw categorie. 

2) Wanneer we uw programma goed 
genoeg vinden om te publiceren. In 
dat geval krijgt u daarvoor een ver¬ 
goeding uitgekeerd. 

Wat mag het zijn? 

Utilities, spelletjes, doe-programma’s 
en programma’s voor serieuze toe¬ 
passingen. 

° Iedere 10e inzender ontvangt een 
verrassing!! 


Wat is er te winnen: 

° Een kleuren monitor. 

“ Een monochrome monitor.. 

° Een diskdrive 

° Een groot aantal prachtige software 
pakketten. 

Als extra hebben we een categorie 
voor de mooiste, beste en voor een 
groot publiek intressante hardware- 
aanpassing. Het moet voor iedereen 
die geen twee linkerhanden heeft na 
te maken zijn. Inzendingen moeten 
naast een goed bouwschema ook een 
materiaallijst bevatten. 

Het ontwerp bijsluiten hoeft niet (mag 
wel) als het nodig is nemen wij daar 
kontakt met u over op. 

N.B. Door inzending stemt men toe in 
publicatie, ook inelektronische vorm. 
De vergoeding bij plaatsing wordt 
door de redaktie bepaald. Inzenders 
krijgen na ontvangst van hun inzen¬ 
ding van ons een andere cassette of 
diskette toegestuurd, dus hou zelf een 
kopie van het programma. 
Inzendingen : PB 112, 1260 AC Blari- 
cum o.v.v. "PRIJSVRAAG Commo¬ 
dore". 


Sluitingsdatum inzendingen: 31 december 1987 


Missers 

P.J. Bokma uit Heerenveen 
maakte ons attent op de vol¬ 
gende misser, en verstrekte 
een tip betreffende het Ami- 
ga-programma Dataspin in 
Commodore Info van okto¬ 
ber/november 1987. In de 
toelichting (dus niet in het 
programma) staat dat om te 
eindigen een " _ " moet wor¬ 
den ingetoetst. Dit is niet 
juist. Het moet zijn: " . " (een 
punt). 

Diegenen die wat in Amiga- 
Basic thuis zijn zullen direkt 
gezien hebben dat achter het 
label "verder4" een dubbele 
punt geplaatst moet worden: 
"verder4:" 

Nog een tip: met behulp van 
de Absoft A.C. Basic com¬ 
piler kan het programma als 
volgt worden aangepast: 

Ten eerste moet dan als eer¬ 
ste regel een label worden 
geplaatst, bv. "start:". Vervol¬ 
gens kunnen het aantal re¬ 
cords dat onder het label "di- 
mensionering:" staat worden 
aangepast: If vld=2 then 
al =2001, If vld=3 then 
al =1601 etc. Dit kan omdat 
de compiler meer geheugen 
beschikbaar stelt aan het pro¬ 
gramma. Wanneer men na 
het compileren vanuit het 
hoofdmenu "6" kiest (print vrij 
geheugen) dan blijkt dit meer 
dan 200 KB te zijn. 


P0WER800T 


Dit programma werkt alleen in combinatie met de 
powercardridge. Na het runnen verschijnt de dyrectory 
op het scherm met voor de titel een cijfer. Om een 
programma te willen laten opstarten is het voldoende om 
het corresponderende cijfer in te toetsen. Het programma 
is alleen geschikt voor diskettes met niet te veel 
programma’s op de schijf, maar is voor veel schijven 
goed te gebruiken. Het is een creatie van R.A. Wolswijk 
uit Zeist. 

1 rem powerboot / commodore 64 

2 rem door r.a. wolswijk 

3 rem uit zeist / 03404-23295 

4 rem 

5 pudefzrem »» boot voor powercart. 

« » 

6 prlnt"[SHlFT CLRi";:cata1og:b=1069 
:print"CHOME]":ifpeek(1024)<>48the 
nb=lO29:print"CH0MEi"; 

7 dimd(50):t=40:x=1029:c=b-t 

8 a=a+l:b=b+t:printstr$(a);ifpee 
k(b)=34then8 


9 prlnt"[H0ME]"5tab(28)"tCTRL 93CSPA 
CEJwelktSPACEiprgnr.tCTRL 03" 

10 pr int tab (29) ; : Inputp$ : i f p$ = "'f"then 
run6 

11 p = val(p*):if p<lorp>athen:pudef:pri 
nt”tSHlFT CLR3":new 

12 c=c+p»t:fork=ltol7:d(k)=peek(c+k): 
1fpeek(c+k)=34then14 

13 next 

14 print"CSHIFT CLR31oad";chr$(34):fo 
rl=ltol7:ifd(1)=0thenl6 

15 pokex,d(1)ïx=x+l:next 

16 pokex,44:pokex+l,56:poke631,19:pok 
e632,13:poke633,13 

17 poke634,82;poke635,85:poke636,78:p 
oke637,13;pokel98,7:pudef:end 

»» EINDE LISTING powerboot 


REGEL 

1 

142 

REGEL 

10 

50 

REGEL 

2 

44 

REGEL 

11 

195 

REGEL 

3 

108 

REGEL 

12 

115 

REGEL 

4 

143 

REGEL 

13 

130 

REGEL 

5 

181 

REGEL 

14 

214 

REGEL 

6 

31 

REGEL 

15 

47 

REGEL 

7 

164 

REGEL 

16 

24 

REGEL 

8 

96 

REGEL 

17 

141 

REGEL 

9 

51 
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Sprinqbeest 


Springbeest is een programma gemaakt door T. 
Stegman uit Zeist. Je bestuurt een kikker die op het 
ijs heen en weer springt. Er zijn boven het ijs vliegen 
die de kikker moet proberen te vangen. Iedere keer 
dat de kikker na een sprong op het ijs neer valt ver¬ 
schijnt er op die plaats een wak als hij weer op die 
plaats neer komt is het spel afgelopen. Als alle vlie¬ 
gen zijn opgegeten ga je door naar een volgend level 


5 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 


110 

120 

130 

140 

150 


ho=0 

forq=0to62:readj:poke832+q, j:next 

v=53248:e=6:f=63 

poke53280,14:poke53281,0 

pokev+21,1:poke2040,13:pokev+39,5 

s=54272:pokes + 24, 15 

forq=stos + 23:pokeq, 0:next 

pokes + 2,100:pokes + 5, 9 

pokes,37:pokes + 6, 48 

pokes + 4,17:pokes + l, 55 

print"[SHIFT CLR][22xCRSR-DOWN][SP 

ACE][CTRL 9][38xCOM I][CTRL 0][SPA 

CE] " 

forj=ltoe:q=int(rnd(0)*40)+1904:if 
peek(q)=32thenj=j-l 
pokeq,32:next 

forj=ltof:q=1024+int{rnd(O)*480) 
ifpeek(q)=81thenj=j-l 
pokeq,81:pokeq+54272, int(rnd(O) *15 
H):next 


430 if q$="j"then gotolOO 

440 if q$="n"then end 

450 ifkofthenend 

460 e=e+4:k=0:f=f+4:print"press[SPACE] 

any[SPACE]key!" 

470 geta$:ifa$=""then470 
480 ti$=b$;gotoSO 

490 qq=int(((x-24)/8)fint((y-53)/8)*40 
) +984 

500 forj=0to4:forq=0to2 

510 d=qq+j+q*40 

520 ifpeek(d)=32then550 

530 ifpeek(d)=81thenk=k+l 

540 pokes + 4,129:pokes + 4,128:poked, 32 

550 nextq,j:pokes + 4 , 17 

560 cc=0:ify<l90thencc=l 

570 return 

580 qq=int(( (x-2 4)/8)+int ( {y-53)/8)*40 
)+1064 

590 forj=0to3 
600 d=qq+j 

610 ifpeek (d) =32tlaen630 

620 pokes + 4,129:pokes + 4,128:poked, 32 

630 nextj:pokes+4,17:return 

640 data7, 0, 112,5,127, 80,5 

650 data255,208,15,190,248,95,255 

660 data253,111,0,123,127,255,255 

67 0 datalll,255,251,55,255,246,59 

680 data255,238, 28, 0, 28, 6, 193 

6 90 datal7 6,2, 193, 160, 12 6, 193, 191 

700 dataO,193,128,17,128,196,127 

710 dataO,127,0,0,0,0,0 



160 

x=170:y=102:ti$="000000" 

720 

dataO 

O 

o 

0, 0, 0,0 




170 

gosub280:pokes+4,17 








180 

gosub580:gosubl90:gotol7 0 

** EINDE LISTING springbeest ** 




190 

j=peek(56320) 








200 

h=sgn(jand4)-sgn(jand8) 

EGEL 

5 

121 

EGEL 

380 

186 


210 

x=x+h*8:pokev, xand255 

EGEL 

10 

102 

EGEL 

390 

65 


220 

ifx<30thenx=30 

EGEL 

20 

16 

EGEL 

400 

151 


230 

ifx>310thenx=310 

EGEL 

30 

90 

EGEL 

401 

157 


240 

y^y-l0:pokev+16,int{x/256) :pokes + l 

EGEL 

40 

28 

EGEL 

410 

81 



/ Y 

EGEL 

50 

207 

EGEL 

412 

204 


250 

pokev+1,Y:ifpeek(v+31)=landy<l90th 

EGEL 

60 

23 

EGEL 

413 

155 



engosub4 90:return 

EGEL 

70 

235 

EGEL 

420 

249 


260 

ify<>52thenl90 

EGEL 

80 

28 

EGEL 

430 

157 


270 

return 

EGEL 

90 

241 

EGEL 

440 

107 


280 

j=peek(56320) 

EGEL 

100 

150 

EGEL 

450 

167 


290 

h=sgn(jand4)-sgn{jandS) 

EGEL 

110 

167 

EGEL 

460 

109 


300 

y=y+10:x=x+h*8:pokev,xand255 

EGEL 

120 

53 

EGEL 

470 

104 


310 

ifx<30thenx=30 

EGEL 

130 

208 

EGEL 

480 

1 


320 

ifx>310thenx=310 

EGEL 

140 

211 

EGEL 

490 

251 


330 

pokev+16,int(x/256):pokes+l,y 

EGEL 

150 

100 

EGEL 

500 

73 


340 

ifpeek{v+31)=landy>190theny=222:po 

EGEL 

160 

139 

EGEL 

510 

151 



kev+1,y:return 

EGEL 

170 

189 

EGEL 

520 

58 


350 

ifpeek{v+31)=lthengosub490 

EGEL 

180 

230 

EGEL 

530 

199 


360 

pokev+1,y:ify<>232then280 

EGEL 

190 

15 

EGEL 

540 

255 


370 

forl=xto367step3:pokev+16, int(1/25 

EGEL 

200 

13 

EGEL 

550 

223 



6):pokev,land255:pokes+l,land37+k 

EGEL 

210 

46 

EGEL 

560 

227 


380 

next:pokes+6,0:o=o+k:t=int(ti/60): 

EGEL 

220 

13 

EGEL 

570 

142 



poke53272,21 

EGEL 

230 

109 

EGEL 

580 

33 


390 

b$=ti$:print"[SHIFT CLR][3xCRSR-DO 

EGEL 

240 

0 

EGEL 

590 

132 



WN]je[SPACE]hebt[SPACE]net"k"vlieg 

EGEL 

250 

90 

EGEL 

600 

140 



en[SPACE]ingeslikt[SPACE]in: 

EGEL 

260 

240 

EGEL 

610 

57 


400 

print"[6xSPACE]":print t"seconden" 

EGEL 

270 

142 

EGEL 

620 

255 


401 

k=0:t=0 

EGEL 

280 

15 

EGEL 

630 

42 


410 

print"[4xCRSR-DOWN]je[SPACE]score[ 

EGEL 

290 

13 

EGEL 

640 

242 



SPACE]is:"o 

EGEL 

300 

215 

EGEL 

650 

105 


412 

if o>ho then ho=o:o=0 

EGEL 

310 

13 

EGEL 

660 

80 


413 

print"[3xCRSR-DOWN]de[SPACE]hoogst 

EGEL 

320 

109 

EGEL 

670 

98 



e[SPACE]score[SPACE]van[SPACE]de[S 

EGEL 

330 

86 

EGEL 

680 

155 



PACE]dag[SPACE]is"ho 

EGEL 

340 

207 

EGEL 

690 

96 


420 

print"[8xCRSR-DOWN]wil[SPACE]je[SP 

EGEL 

350 

182 

EGEL 

700 

48 



ACE]nog[SPACE]een[SPACE]keer[SPACE 

EGEL 

360 

167 

EGEL 

710 

69 



]spelen";:inputq$ 

EGEL 

370 

102 

EGEL 

720 

219 




.’ !nfb 7 







I 
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Vaste Hand C128 


De Heer Y. Rozijn uit Amsterdam heeft voor ons een 
programma gemaakt waarbij je je zenuwen goed in 
bedwang moet hebben om het spel tot een goed ein¬ 
de te brengen. De opdracht is om de ring zo snel mo¬ 
gelijk van links naar rechts te sturen. De toevallige 
bewegingen van de ring nemen toe naarmate de tijd 
verstrijkt. Snelheid en een vaste hand zijn dus gebo¬ 
den. 

1 rem ***************************** 

2 rem * vaste hand * 

3 rem * commodore 128 * 

4 rem * door y. rozijn, amsterdam * 

5 rem ***************************** 

10 gosub 900:n=l:t=-l 

20 do:color 5, 8 

30 : movespr 1,0,79:sprite l,l,2:move 

spr 1,90#1 

40 : do:j=joy(2):m=n 

50 : : if j=l then m=n-l:if m<l then 

m=6 

60 : : if j=5 then m=n+l:if m>6 then 

m=l 

70 : : if mOn then char l,l,18+n,"[2 

xSPACE]":char 1,1,18+m,:n=m 
80 : : if j=3 or j=7 then begin 

90 : : : t=not t:if t then char 1,1,1 

2,"[SPACE]wel":else char l,l,12,"g 
een" 

100 : : bend 

110 : : if (jandl5)>0 then do:loop unt 

il joY(2)=0 

120 : loop until j and 128 

130 : gosub 660:s=s/10:color 5,ll:char 

1,30,19 

140 : print using "####.#";s:char 1,30 

,21,str$ (n) 

150 : if X then char 1,25,23,"niet[SPA 

CE]voltooid":else begin 
160 : : char 1,25,23,chr$(27)+"q":colo 

r 5,8 

170 : : if s<hs (n) then hs(n)=s:char 1 

,14,18+n:print using "####.#";hs(n 

) ; 

180 : bend 

190 loop 
200 end 

210 rem **** logo **** 

220 char 1,6,0,"[COM A][25xSHIFT *][CO 
MS]" 

230 char 1,6,1," [SHIFT -] [2xSPACE]v[SP 
ACE]a[SPACE]s[SPACE]t[SPACE]e[5xSP 
ACE]h[SPACE]a[SPACE]n[SPACE]d[2xSP 
ACE][SHIFT -]" 

240 char 1,6,2,"[COM Z][25xSHIFT *][CO 
M X] " 

250 return 

260 rem **** baan 1 **** 

270 draw 1,6,110 to 313,110 :y=110 

280 return 

290 rem **** baan 2 **** 

300 draw 1,6,170 to 30,170 

310 circle 1,160,170,130,120,270,450,, 

45 

320 draw 1,290,170 to 313,170:y=170 
330 return 

340 rem **** baan 3 **** 

350 draw 1,6,110 to 30,110 

360 circle 1,90,110,60,60,270,450 

370 draw 1,150,110 to 170,110 

Tjon ^ A ^ T ^ 1 oon inn c r\ c r\ nn o~7n 


390 draw 1,290,110 to 313,110 
400 Y=110 

410 return 

420 rem **** baan 4 **** 

430 draw 1,6,170 to 30,170 to 30,50 to 
82,50 to 82,170 to 132,170 
440 drawto 132,50 to 184,50 to 184,170 
to 238,170 to 238,50 to 290,50 
450 'drawto 290,170 to 313,170:y=170 

460 return 

470 rem **** baan 5 **** 

480 draw 1,6,170 to 140,170 to 140,150 

490 circle 1,140,100,110,50,180,360 

500 draw 1,140,50 to 180,50 
510 circle 1,180,100,110,50,0,180 
520 draw 1,180,150 to 180,170 to 313,1 
70 

530 y=170 

540 return 

550 rem **** baan 6 **** 

560 draw 1,6,110 to 30,110 

570 circle 1,160,110,130,60,270,360 

580 circle 1,160,110,100,60,0,90 

590 circle 1,210,110,50,30,90,270 

600 circle 1,160,110,130,60,90,180 

610 circle 1,160,110,100,60,180,270 

620 circle 1,110,110,50,30,270,450 

630 draw 1,290,110 to 313,110 
640 y=110 

650 return 

660 rem **** spelronde **** 

670 if t then def fnr (x)=rnd(1)*(2*x+l 
)-x:else def fnr(x)=0 
680 sprite l,0:movespr 1,0#0:graphic 1 
,l:color l,2:gosub 210:color 1,8 
690 on n gosub 260,290,340,420,470,550 

700 color l,16:char 1,2,24,"baan" + strS 
(n):char 1,15,24,"tijd[7xSPACE](ti 
ende[SPACE]sec)" 

710 movespr 1,24,y+44:sprite l,l,2:p=0 
:ti$="000000" 

720 do 

730 : s=int{ti/6):char 1,19,24,str$(s) 

740 : j=joy(2)and 15:p=p-.01*(p<2) 

750 : y=dy ( j)+fnr(p) :z=dz(j)+fnr(p) 

760 : x=bump(2)=0:if x=0 then movespr 

1, +y,+z 

770 loop until x or rsppos (1,0)>329 
780 if X then begin 

790 : sound 1,10000,120,2,8000,1000,1 

800 : c=ll:for i=l to 49:sprite 1,1,c: 

c=13-c:forj=ltol5:next:next 
810 bend:else begin 

820 : sprite 1, 1,14 

830 : sound 1,6000,52:for i=l to 200:n 

ext 

840 : sound 2,7559,86:for i=l to 200:n 

ext 

850 : sound 3,8989,68:for i=l to 200:n 

ext 

860 : sound 1,12000,50 

870 bend 

880 sleep 2 : sprite l,0:graphic 0 

890 return 

900 rem **** init **** 

910 color 0,l:color 4,l:color 5,2:grap 

hic l,l;graphic 0,1 

920 gosub 210:print:print:color 5,16 

930 print "beweeg[SPACE]de[SPACE]ring[ 

SPACE ] zo [ SPACE ] snel [-SPACE ] mogeli jl< 
[SPACE]van" 

940 print "links[SPACE]naar[SPACE]rech 

ts[SPACE]maar[SPACE]verlaat[SPACE] 

Hc rcDAr’TT'i 1 -i' 


4h 


i 'ommofiore liijo 7 K’ 














950 

960 
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print "nietprint 
print "de[SPACE]toevallige[SPACE]b 
ewegingen[SPACE]van[SPACE]de[SPACE 
]ring" 

970 print "nemen[SPACE]toe[SPACE]naarm 
ate[SPACE]de[SPACE]tijd[SPACE]vers 
trijkt." 


]1/r)" 

1060 print;print "[2xSPACE]selekteer[SP 
ACE]een[SPACE]baan[SPACE]met[SPACE 
]de[SPACE]joystick" 

1070 print "[2xSPACE]druk[SPACE]op[SPAC 
E]de[SPACE]vuurknop[SPACE]om[SPACE 
]te[SPACE]beginnen" 


980 

print 

"een [ 

SPACE]vaste[SPACE] 

hand [ 

1080 

color 

5,8:char 1 

,2,12, 

"wel": 

char 1 


SPACE] 

is[SPACE]dus[SPACE 

] geboden!" 


,6,17, 

"kortste[SPACE]tijden" 

: char 

990 

color 

5,4:with 2:vol 15 




1,1,19 

, "->" 




1000 

circle 

1, 6, 

6,6,6:shape a$,0,0 

,23,2 

1090 

for i= 

1 to 6:char 1,5, 

18 + i, " 

baan" + 


1:sprsave a$,1 




str$(i 

):next 




1010 

sprite 

1,0, 

2, 1, 0, 0, 0 



1100 

color 

5,11:char 

1,25,18,"laatste" 

1020 

for i= 

1 to 

8:read dy (i), 

dz (i) 

: next 

1110 

char 1 

, 25,19, "tijd:":char 1, 

25,21, 

1030 

data 0 

,-3,3 

,-3,3,0,3,3,0 

,3,-3 

, 3, -3 


" (baan 

[2xSPACE]) 

II 




,0,-3, 

-3 




1120 

return 





1040 

for i= 

1 to 

6:hs(i)=99999 

: next 








1050 

print: 

print 

"[öxSPACE]toevallige [S 

** EINDE LISTING vaste hand 128 

** 



PAGE]bewegingen[SPACE](joyst[ 

SPACE 
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7 
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900 

19 
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10 
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610 

109 

REGEL 

910 

37 

REGEL 

20 
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REGEL 

320 
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57 

REGEL 

920 

175 

REGEL 

30 

234 

REGEL 

330 

142 

REGEL 

630 

148 

REGEL 

930 

87 

REGEL 

40 

52 

REGEL 

340 

36 

REGEL 

640 

157 

REGEL 

940 

47 

REGEL 

50 

206 

REGEL 

350 

251 

REGEL 

650 

142 

REGEL 

950 

14 

REGEL 

60 

207 

REGEL 

360 

20 

REGEL 

660 

139 

REGEL 

960 

203 

REGEL 

70 

166 

REGEL 

370 

144 

REGEL 

670 

227 

REGEL 

970 

123 

REGEL 

80 

206 

REGEL 

380 

16 

REGEL 

680 

22 

REGEL 

980 

240 

REGEL 

90 

96 

REGEL 

390 

148 

REGEL 

690 

221 

REGEL 

990 

125 

REGEL 

100 

139 

REGEL 

400 

157 

REGEL 

700 

100 

REGEL 

1000 

6 

REGEL 

110 

120 

REGEL 

410 

142 

REGEL 

710 

6 

REGEL 

1010 

97 

REGEL 

120 

182 

REGEL 

420 

37 

REGEL 

720 

235 

REGEL 

1020 

161 

REGEL 

130 

87 

REGEL 

430 

14 

REGEL 

730 

204 

REGEL 

1030 

73 

REGEL 

140 

117 

REGEL 

440 

46 

REGEL 

740 

149 

REGEL 

1040 

129 

REGEL 

150 

46 

REGEL 

450 

196 

REGEL 

750 

128 

REGEL 

1050 

46 

REGEL 

160 

79 

REGEL 

460 

142 

REGEL 

760 

180 

REGEL 

1060 

29 

REGEL 

170 

45 

REGEL 

470 

38 

REGEL 

770 

240 

REGEL 

1070 

64 

REGEL 

180 

81 

REGEL 

480 

52 

REGEL 

780 

160 

REGEL 

1080 

196 

REGEL 

190 

236 

REGEL 

490 

106 

REGEL 

790 

189 

REGEL 

1090 

1 

REGEL 

200 

128 

REGEL 

500 

54 

REGEL 

800 

176 

REGEL 

1100 

155 

REGEL 

210 

16 

REGEL 

510 

5 

REGEL 

810 

60 

REGEL 

1110 

79 

REGEL 

220 

93 

REGEL 

520 

157 

REGEL 

820 

94 

REGEL 

1120 

142 

REGEL 

230 

152 

REGEL 

530 

163 

REGEL 

830 

163 




REGEL 

240 

107 

REGEL 

540 

142 

REGEL 

840 

191 




REGEL 

250 

142 

REGEL 

550 

39 

REGEL 

850 

200 





mastermind C128 


Tijn Kemps uit Schiedam gebruikte het bekende ge- 
heugenspel mastermind als uitgangspunt voor een 
computer versie. Een uitleg is overbodig. De enige 
opdracht is om in zo min mogelijk beurten de kleur¬ 
code, die de computer heeft gekozen te raden. 

Het programma is met de checksum te kontroleren 
maar alleen in de 64 mode. 


SPACE]programma[SPACE]is[SPACE]ges 
chreven[SPACE]door[SPACE]:" 

103 print " [2xCRSR-DOWN] [CTRL 9] [CTRL 
2]tijn[SPACE]kemps[CTRL 0][SPACE]u 
it[SPACE]Schiedam" 

104 slow 

105 sleep5:print"[SHIFT CLR]":goto206 

106 color0,l:fast:graphicl, l:color0, 1 

107 color1,8 

108 charl,13,0,"*[SPACE]master-mind[SP 
ACE]*" 


10 

rem 


109 

colorl , 11 



11 

rem 

•k 

k 

110 

charl,3,2,"UCCCCCCCI" 



12 

rem 

* mastermind cbm-128 

k 

111 

charl,3,3,"B*[SPACE]*[ 

SPACE]*[SPAC 

13 

rem 

■k 

k 


E] *B" 



14 

rem 

* door tijn kemps 

k 

112 

charl,3,4,"JCCCCCCCK" 



15 

rem 

k 

k 

113 

Charl,0, 6, "01[2xSPACE] 

W[SPACE]W[ 

SP 

22 

rem 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


ACE]W[SPACE]W[2xSPACE] 

. [SPACE] . " 


23 




114 

charl,0,8,"02[2xSPACE] 

W[SPACE]W[ 

SP 

100 

printchr$(142):graphicO , 1:fast 



ACE]W[SPACE]W[2xSPACE] 

. [SPACE] . " 


101 

poke53280,0:poke53281,0 


115 

charl,0,10,"03[2xSPACE 

]W[SPACE]W 

[S 

102 

print"[3xCRSR-DOWN][SHIFT CLR] 

dit [ 


PACE]W[SPACE]W[2xSPACE 

] . [SPACE] . 

II 


47 


I 'oninitfchuliiftj 7 


ƒ 
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116 charl,0,12,"04[2xSPACE]W[SPACE]W[S 
PACE]W[SPACE]W[2xSPACE].[SPACE]." 

117 charl,0,14,"05[2xSPACE]W[SPACE]W[S 
PAGE]W[SPACE]W[2xSPACE].[SPACE]." 

118 charl,0,16,"06[2xSPACE]W[SPACE]W[S 
PACE]W[SPACE]W[2xSPACE].[SPACE]." 

119 charl,0,18,"07[2xSPACE]W[SPACE]W[S 
PACE]W[SPACE]W[2xSPACE].[SPACE] 

120 charl,0,20,"08[2xSPACE]W[SPACE]W[S 
PAGE]W[SPACE]W[2xSPACE].[SPACE]." 

121 charl,0,22,"09[2xSPACE]W[SPACE]W[S 
PACE]W[SPACE]W[2xSPACE].[SPACE] 

122 charl,0,24,"10[2xSPACE]W[SPACE]W[S 
PACE]W[SPACE]W[2xSPACE].[SPACE] 

123 colorl,2:charl,22,6,"Q":charl,22,8 
, "1" 

124 colorl,3:charl,24,6,"Q":charl,24,8 

, "2" 

125 colorl,6:charl,26,6,"Q";charl,26,8 

, "3" 

126 colorl,7:charl,28,6,"Q":charl,28,8 

, "4" 

127 colorl,8:charl,30,6,"Q":charl,30,8 

, "5" 

128 colorl,5:charl,32,6,"Q":charl,32,8 

, " 6 " 

129 slow:cd$="" 

130 forcd=lto4 

131 c(cd)=int{6*rnd(1)+1) 

132 nextcd 

133 fora=lto3:forb=a+lto4 

134 ifc (a)=c(b)thenl29 

135 nextb,a 

13 6 zS (1)="01":z$ (2)="02":z$ (3)="03":z 
$(4)="04":z$(5)="05":z$(6)="06":z$ 
(7)="07":z$(8)="08":z$(9)="09":z$( 
10)="10" 

137 forbe=ltol0 

138 colorl,4:charl,20,10,z$(be)+"[lOxS 
PACE]" 

139 be$="" 

140 forkk=lto4 

141 getff$:ifff$<"l"orff$>"6"thenl41 

142 be$=be$+ff$:tb$(kk)=ff$ 

143 forcc=kk-ltolstep-l 

144 ifff$=tb$(cc)andcc<>0thenl38 

145 nextcc 

146 ifffS = "l"thencolorl, 2 

147 ifff$ = "2"thencolorl, 3 

148 ifff$ = "3"thencolor1, 6 

149 ifff$ = "4"thencolor1, 7 

150 ifff$ = "5"thencolorl, 8 

151 ifff$ = "6"thencolor1,5 

152 charl,22+2*kk,10,"Q" 

153 nextkk 

154 colorl,15:charl,20,12,"zeker[SPACE 
]weten[SPACE]?[SPACE] (j/n)" 

155 geta$:ifa$<>"j"anda$<>"n"thenl55 

156 charl,20,12,"[lOxSPACE]" 

157 ifa$="n"thenl38 

158 forcc=lto4 

159 iftb$ (cc)="l"thencolorl,2 

160 iftb$ (cc)="2"thencolor1,3 

161 iftb$ (cc)="3"thencolor1,6 

16 iftb$ (cc)="4"thencolor1,7 

163 iftb$(cc)="5"thencolor1,8 

164 iftb$(cc)="6"thencolor1,5 

165 charl,2+cc*2,4+be*2,"Q" 

166 nextcc 

167 g=0:h=0 

168 forgg=lto4 

169 ifval(tb$(gg))=c(gg)theng=g+l 

170 nextgg 


171 forgg=lto4:forhg=lto4 

172 ifval (tb$ (gg) ) =c (hg) andggohgthenh 
=h+l 

173 nexthg,gg 

174 colorl,14:charl,12,4+be*2,str$(g) 

175 colorl,11:charl,14,4+be*2, str$(h) 

176 ifg=4thenl90 

177 nextbe 

178 forcc=lto4 

179 ifc (cc)=lthencolorl,2 

180 ifc (cc)=2thencolorl,3 

181 ifc (cc)=3thencolorl,6 

182 ifc (cc)=4thencolor1,7 

183 ifc {cc)=5thencolorl,8 

184 ifc (cc)=6thencolorl,5 

185 charl,2+cc*2,3,"Q" 

186 nextcc 

187 colorl,4:charl,20,6,"helaas[SPACE] 

!![13xSPACE]" 

188 charl,20,8,"u[SPACE]heeft[SPACE]ve 
rloren." 

189 goto202 

190 forcc=lto4 

191 iftb$ (cc)="1"thencolor1,2 

192 iftb$ (cc)="2"thencolor1,3 

193 iftb$(cc)="3"thencolor1, 6 

194 iftb$ (cc)="4"thencolor1,7 

195 iftb$ (cc)="5"thencolor1,8 

196 iftb$ (cc)="6"thencolor1,5 

197 ohar1,2+cc*2,3,"Q" 

198 nextcc 

199 sleep3 

200 colorl,4:charl,20,6,"gefeliciteerd 
[SPACE]!!" 

201 charl,20,8,"u[SPACE]hebt[SPACE]gew 
onnen[SPACE]!!" 

202 charl,20,10,"spatie[SPACE]voor[SPA 
CE]opnieuw." 

203 charl,20,12,"return[SPACE]voor[SPA 
CE]uitleg." 

204 geta$:ifa$<>"[SPACE]"anda$<>chr$(1 
3)then2 04 

205 ifa$="[SPACE]"thenl06 

206 graphicO,1:print"[SHIFT CLR]u[SPAC 
E]moet[SPACE]de[SPACE]juiste[SPACE 
]kleurcode[SPACE]raden[SPACE]in[SP 
ACE]zo[2xSPACE]min[SPACE]mogenlijk 
[ SPACE]beurten." 

207 print"[CRSR-DOWN]het[SPACE]eerste[ 
SPACE]getal[SPACE]achter[SPACE]uw[ 
SPACE]beurt[SPACE]geeft[2xSPACE]de 
[SPACE]juiste[SPACE]kleuren[SPACE] 
op[SPACE]de[SPACE]juiste[SPACE]pla 
ats[3xSPACE]aan[SPACE]en[SPACE]het 
[SPACE]tweede[SPACE]getal[SPACE]de 
[SPACE]juiste" 

208 print"kleuren[SPACE]die[SPACE]niet 
[SPACE]op[SPACE]de[SPACE]juiste[SP 
ACE]plaats[SPACE]zitten." 

209 print"[CRSR-DOWN]u[SPACE]moet[SPAC 
E]steeds[SPACE]vier[SPACE]verschil 
lende[SPACE]kleurengebruiken[SPACE 
] !" 

210 print"[CRSR-DOWN]veel[SPACE]plezie 
r[SPACE] ! ! " 

211 print"[CRSR-DOWN]druk[SPACE]spatie 
[SPACE]voor[SPACE]spelen." 

212 geta$:ifa$<>"[SPACE]"then212 

213 gotol06 

** EINDE LISTING mastermind 128 ** 
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13 
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157 

119 

REGEL 

188 

207 
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14 
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16 
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166 
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210 
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207 
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49 
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172 

3 
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203 
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159 
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203 
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9 
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42 
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122 
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36 
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113 

88 
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138 
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175 
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11 
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114 

91 
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8 
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Mt base C16 



1 250 

get i$ 

:if i$=' 

then 250 








" 2 60 

i=int(val{ 1 $)j 










270 

if i<l 

or i>6 

then 250 




Peter Boersma maakte een zeer uitgebreide databa¬ 
se voor de C16. Het gehele geheugengebied van de 
cl 6 wordt hierbij benut. Het programma is geheel 
menu gestuurd zodat een uitleg overbodig is. 

10 rem ****************************** 

20 rem *-mt-base cl6-* 

30 rem * door: * 

40 rem *--p eterboersm a-* 

50 rem ****************************** 

60 rem **** mt-base C-16/+4 **** 

70 poke806,103 

80 colorO,1:colorl,2:color4,1 

90 clrrdim v$(9),g$(100,9) 

100 scnclr:printchr$(14)chr$(8) 

110 printtab (14)"MT-BASE[SPACE]C-16" 

120 print"[SHIFT *]pb86[31xSHIFT *]sss 

[SHIFT *]" 

130 rem g=aantal gegevens 

140 rem a=nr gegeven 

150 rem k=zoek;en op v$ (k) 

160 rem v=aantal vraag-gegevens 

170 rem ****** start *********** 

180 print"[3XCRSR-DOWN][SPACE][1][SPAC 

E]bestand[SPACE]laden" 

190 print"[CRSR-DOWN][SPACE][2][SPACE] 

invoer[SPACE]nieuwe[SPACE]vraag-ge 
gevens" 

?nn or 1 n-i-" rrnsR-nnwMi rspaoRi rsi rquanpi 

invoer[SPACE]gegevens" 

210 UT: t T" [CiRP-D r.Ri; L-O-'-'cr I a isp.v;-;] 


printi$ 

for 1=1 to 200:next 1:1=0 

on i gosub 840,330,550,960,700,165 


goto 100 

rem- 

ns 


invoer nwe vraag-gegeve 


scnclr:g=0 
if v=0then 370 
for a=l to v 
v$ (v)="":next a 

print”[2xCRSR-DOWN]Hoeveel[SPACE]v 
ragen?(1-9) 

getv$:ifv$="" then 380 
if v$=chr$(27) then return 
v=val{v$):if v<l or v>9 then 380 
for a=l to V 

print"Vraag[SPACE]nr.";a 
inputv$ (a) 
next a 

print"[CRSR-DOWN]Nog[SPACE]wijzige 
n? (j/n)" 

getw$:ifw$=""then4 60 

if w$=chrS(27) then goto 500 

if w$="j" or w$="J"then 330 

if w$<>"n" and w$<>"N" then 460 

x=0:for f=l to v 

h=len(v$(f)):if h>x then x=h 

next f 


'i CTiK] 1 /X'.,i\"H-S"'.'Hj " : 
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print"[2xCRSR-D0WN][2xSPACE][1][SP 
ACE]meer[SPACE]gegevens[SPACE]invo 
eren 

print"[CRSR-DOWN][2xSPACE][2][SPAC 
E]MENU" 

print"[2xCRSR-D0WN][2xSPACE][-][2x 
CRSR-LEFT] 

getk$:ifk$=""then630 

if k$=chr$(27) then return 

k=int (val(k$)) 

if k=l then 550 

if k<>2 then 630 

return 

rem-saven bestand- 

scnclr 

print"[3xCRSR-D0WN]SAVEN[SPACE]BES 
TAND:zeker[SPACE]weten(j/n)" 
getj$:ifj$="" then 720 
if j$=chr${27) then return 
if j$="n" or j$="N" then return 
if j$<>"j" and j$<>"J" then 720 
input"Bestands-naam";b$ 
if b$="" then bS="BZN" 
b=b+l:open b,1,1 

print#b,b$:print#b,v:for a=l to v; 
print#b,v$(a):next:print#b,g:ifg=0 
then goto 810 

for a=l to g;forc=ltov:print#b, g$( 

a, c) :next:next 

closeb 

return 

rem - bestand laden - 

scnclr:print"[CRSR-DOWN][SPACE]BES 
TAND[SPACE]LADEN:zeker[SPACE]weten 
? (j/n) " 

getkeya$ : ifa$<>" j "andaSo" J"thenre 
turn 

for a=l to g 

for c=l to V 

g$ (a, v) =" " : v$ (c) =" " 

next:next 

b=btl:open b,1, 0 

input#b,b$:input#b,v:for a=l to v: 
input#b,v$(a):next:input#b,g:ifg=0 
then goto 930 

for a=l to g:forc=ltov:input#b,g$( 

a, c) :next:next 

closeb 

return 

rem - doorzoeken bestand - 

scnclr 

print"[2xCRSR-DOWN][SPACE][0][SPAC 
E]MENU 

print"[3xCRSR-D0WN][3xSPACE]Zoeken 
[SPACE]op:" 
for i=l to V 

print"[CRSR-DOWN] [SPACE] ["i"] [2xSP 
ACE]";v$(i) 
next i 

print"[2xCRSR-DOWN][SPACE][-][2xCR 
SR-LEFT]"; 

getk$:ifk$="" then 1030 
if k$=chr$(27) then return 
if k$="0" then return 
k=int(val(k$)) 
if k<l or k>v then 1030 
printright$(str$ (k) , 1) 
for 1=1 to 200:next 1 
scnclr 

print"[4xCRSR-DOWN]";v$(k);:input 
k$ 

q=0:if k$="" then 1100 
for a=l to g 

if g$(a,k)=k$ then gosub 1220 , ' 


if q=l then return 
next a 

if q=l then return 

print"[SHIFT CLR][2xCRSR-DOWN]Van[ 
SPACE]"v$(k)":"k$ 

print"niets[SPACE](meer)[SPACE]aan 
wezig" 

for 1=1 to 2000:next:return 

rem - printen gekozen gegevens -- 

scnclr:gosub 500 
for n=l to V 

if len (g$(a,n))<39-x then 1260 
print v$(n)":":printtab(5)g$(a,n): 
goto 1270 

printvS(n);":";tab(x+1)g$ (a,n) 
next n 

print"[CRSR-DOWN][SPACE]-s-[SPACE] 
schrappen" 

print"[SPACE]-w-[SPACE]wijzigen" 
print"[SPACE]-v-[SPACE]volgende" 
print"[SPACE]-m-[SPACE]MENU" 
print"[CRSR-DOWN][SPACE]-?-[SPAC 
E]keuze" 

geti$:ifi$="" then 1330 
if i$=chr$(27) then q=l:return 
w=0:forl=lto4:ifi$=mid$("swvm",1,1 
)then l=4:w=l 
next 1 

if wol then 1330 

q=0:print"[CRSR-UP][2xCRSR-RIGHT]" 

;i$:forl=lto300:nextl 

if i$="s" then gosub 1460 

if i$="w" then gosub 1520 

if i$="v" then return 

if i$="m" then q=l:return 

if q=l then return 

gotol330 

rem-schrappen- 

e=a:for m=e tc g 
for r=l to V 
g$ (m, r) =g$ (m+l, r) 
next r:next m 
g=g-l:q=l:return 

rem-wijzigen- 

scnclr 

print"[6xCRSR-DOWN]"; 
for Y=1 to v 

printv$(y);":";tab(10)g$(a,y) 
next y 

print"[2xCRSR-DOWN] [SPACE]wij zigen 
[SPACE]of[SPACE]op[SPACE][return][ 
SPACE]drukken":print"[13xCRSR-UP]" 

poke 19,64 
for u=l to V 

print"[HOME]"g$(a,u):input"[HOME]" 
;g$ (a,u) 

print"[HOME][38xSPACE]" 

next u:q=l 

poke 19,0:return 

rem-einde- 

print"[SHIFT CLR][5xCRSR-DOWN][2xS 
PACE]EINDE:zeker[SPACE]weten?(j/n) 

getf$:iff$="" then 1660 
if f$=chr$(27) then return 
if f$="n" or f$="N" then return 
if f$<>"j" and f$<>"J" then 1660 
print"[3xCRSR-DOWN][SPACE]Wilt[SPA 
CE]U[SPACE]niet[SPACE]eerst[SPACE] 
SAVEN?(j/n) 

gets$:ifs$="" then 1710 
if s$=chr$(27) then return 


SO ' 


. Commfj^ore htfi> 7iH7 

































I 1730 if s$="j" or s$="J" then return 
i 1740 if s$<>"n" and s$<>"N"then 1710 
I 1750 scnclr;clr:end 

1760 rem ****************************** 
1770 réin ****************************** 
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Adresbestand C16 I 
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65 

89 

r\j_i \jj_j xj 
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890 

-L O J. 
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62 

Het volgende programma is ook voor de C16. Het is 

REGEL 

250 

116 
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229 

een menugestuurd adressenbestand. Het is verba¬ 

REGEL 

260 

132 
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zend hoe programmeurs het voor elkaar krijgen om 

REGEL 
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meer met de geheugenruimte van de C16 te doen. 
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REGEL 

290 
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1 

.adressen laden 
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17 
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82 

2 

.adressen saven 

REGEL 
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26 
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232 

10 

poke53280, 0:poke532 81,0:poke646, 1 

REGEL 
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76 
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250 

15 

dimx$(100,4):poke808,225 

REGEL 

330 

75 
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53 

20 

printchr$(147):zx=l 

REGEL 

340 

4 
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167 

30 

printspc (2)"[CTRL 9] [CTRL 2]sequen 

REGEL 

350 

159 
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130 


tieel[SPACE]adressenbestand[SPACE] 

REGEL 

360 

20 
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voor[SPACE]disk" 

REGEL 
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79 
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89 

35 

printspc(15)"[CRSR-DOWN][CTRL 9][C 

REGEL 

380 

146 

REGEL 

1030 

165 


TRL 2]programmed" 
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REGEL 

1040 

98 

40 

printspc(19)"[CRSR-DOWN][CTRL 9][C 
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85 


TRL 2]by" 

REGEL 
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50 

printspc (14)"[CRSR-DOWN] [CTRL 9] [C 

REGEL 
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24 
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39 


TRL 2]tolsoft[SPACE]inc." 

REGEL 
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60 

printspc(3)"[2xCRSR-DOWN]1.adresse 

REGEL 

440 
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238 


n[SPACE]laden" 

REGEL 

450 

16 

REGEL 

1100 

232 

70 

printspc(3)"[CRSR-DOWN]2.adressen[ 

REGEL 

460 

147 

REGEL 

1110 

219 


SPACE]saven" 

REGEL 

470 

254 

REGEL 

1120 

198 

80 

printspc (3)"[CRSR-DOWN]3.uitvoer[S 

REGEL 

480 

110 

REGEL 

1130 

144 


PACE]scherm/printer" 

REGEL 

490 

221 

REGEL 

1140 

25 

90 

printspc(3)"[CRSR-DOWN]4.gegevens[ 

REGEL 

500 

24 

REGEL 

1150 

244 


SPACE]invoeren" 

REGEL 

510 

46 

REGEL 

1160 

195 

91 

printspc (3)"[CRSR-DOWN]5.gegevens[ 

REGEL 

520 

200 

REGEL 

1170 

244 


SPACE]zoeken" 

REGEL 

530 

142 

REGEL 

1180 

250 

100 

printspc(3)"[CRSR-DOWN]6.gegevens [ 

REGEL 

540 

44 

REGEL 

1190 

48 


SPACE]wijzigen" 

REGEL 

550 

126 

REGEL 

1200 

154 

105 

printspc(3) " [CRSR-DOWN]7.gegevens [ 

REGEL 

560 

181 

REGEL 

1210 

223 


SPACE]wissen" 

REGEL 

570 

159 

REGEL 

1220 

68 

110 

printspc(14) " [CRSR-DOWN][CTRL 9][C 

REGEL 

580 

141 

REGEL 

1230 

172 


TRL 2 ] maak [ SPACE]uw [ SPACE ] keuze" 

REGEL 

590 

195 

REGEL 

1240 

168 

120 

getc$:ifc$<"0" or c$>"7" thenl20 

REGEL 

600 

169 

REGEL 

1250 

8 

130 

on val (c$)gosub140,270, 430,890, 107 

REGEL 

610 

13 

REGEL 

1260 

28 


0,1550,1810 

REGEL 

620 

89 

REGEL 

1270 

208 

135 

goto20 

REGEL 

630 

122 

REGEL 

1280 

63 

140 

rem****************** 

REGEL 

640 

98 

REGEL 

1290 

245 

150 

rem* gegevens laden * 

on r-fT 

r n n 

1 Q r 

'DTPr'tPT 

1 O n n 

O O c 

1 6n 
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print-out print-out print-out print-out print-out 

170 

printchr$(147) 


nten****" 

175 

ifk=2 then i=i+l 

690 

print"[2xCRSR“DOWN][CRSR-RIGHT]1.a 

176 

k=0 


lle[SPACE]adressen[SPACE]in[SPACE] 

180 

input"[2xCRSR-DOWN][SPACE]naam[SPA 


geheugen" 


CE]van[SPACE]bestand";m$ 

700 

print"[CRSR-DOWN][CRSR-RIGHT]2.een 

185 

openis,8,15 


[SPACE]adres[SPACE]naar[SPACE]keuz 

190 

openl,8,2,m$+",r" 


e" 

200 

input#15,fe 

710 

getc$:ifc$<"1" or c$>"2" thenilO 

210 

iffeoOthen print" [CRSR-DOWN] [3xC 

720 

on val(c$)goto730,820 


RSR-RIGHT]file[SPACE]bestaat[SPACE 

730 

open4, 4 


]niet";fora=lto999:next:goto245 

735 

gh$ = " " 

220 

ifi=0then i=l 

740 

print#4,chr$(14);tab(13)"adressenl 

230 

input#l,x$ (i,1) 


ijst" 

231 

input#l,x$ (i,2) 

745 

print#4,chr$ (15) 

232 

input#l,x$(i,3) 

750 

form=ltoi step2 

233 

input#l,x$ ( i,4) 

755 

j=len(x$(m,l)):s=25-j 

240 

ifst<>64 theni=itl:goto230 

760 

print#4,x$(m,l);tab(s)x$(m+1,1) 

245 

closel;closel5:return 

765 

j=len(x$(m,2));s=25-j 

270 

rem****************** 

770 

print#4, x$(m,2);tab(s)x$(m+1,2) 

280 

rem* gegevens saven * 

775 

j=len(x$(m,3)):s=25-j 

290 

rem* ***************** 

780 

print#4,x$(m,3);tab(s)x$(m+1,3) 

295 

if i=0then 2070 

785 

j=len(x$(m,4)):s=25-j 

300 

printchr${147) 

790 

print#4,x$(m,4);tab(s)x$(m+1,4) 

310 

input"[2xCRSR-D0WN][SPACE]saven[SP 

795 

print#4,gh$ 


ACE]onder[SPACE]filenaam";m$ 

800 

next 

320 

print"[2xCRSR-DOWN][SPACE]zeker[SP 

810 

close4:goto20 


ACE]weten[SPACE] (j/n)" 

820 

input"[2xCRSR-DOWN][2xCRSR-RIGHT]w 

330 

getc$:ifc$="j" then350 


elk[SPACE]adres[SPACE]1,2...";p 

340 

ifc$="n" then return 

830 

open4, 4 

345 

goto330 

840 

print#4,x$ (p,1) 

350 

openl,8,2,"0:"+m$+",w" 

850 

print#4,x$ (p,2) 

360 

fory=ltoi 

860 

print#4,x$ (p,3) 

370 

print#l,x$(y,1) 

870 

print#4,x$(p,4) 

371 

print#l,x$(y,2) 

880 

close4:goto20 

372 

print#l,x$(y,3) 

890 

rem********************* 

373 

printll,x$ (y,4) 

900 

rem* gegevens invoeren * 

380 

next 

910 

rem********************* 

390 

closel 

914 

print"[SHIFT CLR] [ lOxCRSR-DOWN][SP 

420 

return 


ACE]wilt[SPACE]u[SPACE]adressen[SP 

430 

rem******************** 


ACE ] invoeren [ SPACE]druk[SPACE ] dan [ 

440 

rem* gegevens uitvoer * 


SPACE]f-1" 

i 450 

rem* ******************* 

915 

getc$:ifc$="" then 915 

1 455 

if i=0then 2070 

916 

ifc$=chr$(133) then 925 

1 460 

printchr$ { 147) 

917 

goto2 0 

470 

printspc(16)"[2xCRSR-D0WN]uitvoer " 

925 

i = i + l 

480 

print"[4xCRSR-D0WN][OxSPACE]l.naar 
[ SPACE ] scherm" 

930 

print"[SHIFT CLR][VxSPACE]****gege 
vens [SPACE] invoeren* " 

490 

print"[CRSR-DOWN][9xSPACE]2.naar[S 
PACE]printer" 

970 

print"[CRSR-DOWN] [ ISxSPACE ] adres "; 
i 

500 

getcS : ifc$<"l" or c$>"2"then 500 

980 

input"[2xCRSR-DOWN][CRSR-RIGHT]naa 

510 

onval(c$)goto520,640 


m" ;x$ (i,1) 

520 

X=1 

990 

input"[CRSR-RIGHT]straat";x$(i,2) 

530 

printchr$ (14 7) 

1000 

input"[CRSR-RIGHT]postcode",•x$(i,3 

540 

print"[CRSR-DOWN]"spc(16)"adres";x 


) 

input"[CRSR-RIGHT]woonplaats" ; x$(i 

,4) 

550 

print"[3xCRSR-DOWN] [ SPACE ] naam" ; ta 
b (12);x$ (X,1) 

1010 

560 

print"[CRSR-DOWN][SPACE]straat";ta 
b(12);x$(x,2) 

1020 

print"[3xCRSR-DOWN][2xCRSR-RIGHT]g 
oed[SPACE]ingevoerd[SPACE](j/n) 

570 

print"[CRSR-DOWN] [ SPACE ] postcode" ; 

1030 

getc$ : ifc$="" thenl030 


tab(12);x$(x,3) 

1040 

ifc$="j" thenl061 

580 

print"[CRSR-DOWN] [ SPACE ] woonplaats 

1050 

ifc$="n" then930 


" ;tab ( 12 ); x$(x,4) 

1060 

gotol030 

590 

print"[3xCRSR-DOWN][2xSPACE]verder 

1061 

print" [ 7xSPACE ] verder [ SPACE ] ( j/n) " 


gaan[SPACE](j/n) " 

1062 

getc$ : ifc$="j " then i=i+l : goto930 

600 

getc$ : ifc$=" " thenöOO 

1063 

ifc$="n" then k=2:goto20 

610 

ifc$="j" then x=x+l : goto530 

1064 

gotol062 

620 

ifc$="n" then return 

1070 

rem******************* 

630 

goto600 

1080 

rem* adressen zoeken * 

640 

rem******************** 

1090 

rem******************* 

650 

rem* gegevens printen * 

1095 

if i=0then 2070 

660 

rem* ******************* 

1100 

printchr$(147) 

665 

if i=0then 2070 

1105 

zx=l 

670 

printchr$(147) 

1110 

print"[12xSPACE]adressen[SPACE]zoe 

J 

print"[CRSR-DOWN][12xSPACE]****pri 


ken" 
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1120 print"[3xCRSR-DOWN][IVxSPACE]zoeke 
n[SPACE]op:" 

1130 print"[CRSR-DOWN][16xSPACE][CTRL 9 
]n[CTRL 0]aam" 

1140 print"[CRSR-DOWN][lOxSPACE][CTRL 9 
]s[CTRL OJtraat" 

1150 print"[CRSR-DOWN][lOxSPACE][CTRL 9 
]p[CTRL Ojostcode" 

1160 print"[CRSR-DOWN][16XSPACE][CTRL 9 
]w[CTRL Ojoonplaats" 

1170 input"[3xCRSR-DOWN]maak[SPACE]uw[S 
PAGE]keuze";z$ 

1180 ifz$="n" then te=l:gotol310 
1190 ifz$="s" then te=2:gotolSlO 
1200 ifz$="p" then te=3:gotol310 
1300 ifz$="w" then te=4:gotol310 
1305 gotollOO 

1320 print"[CRSR-DOWN]welke[SPACE]naam, 
straat,plaats[SPACE]of[SPACE]postc 
ode" 

1330 inputz$ 

1340 print"[SHIFT CLR][llxCRSR-DOWN][7x 
CRSR-RIGHT]ik[SPACE]ben[SPACE]even 
[SPACE]aan[SPACE]het[SPACE]zoeken" 
1350 forc=zxtoi 

1360 poke56,207:ifz$=x$(c,te) then 1380 
1370 next 

1375 iffl=5 thenl540:print"[CRSR-DOWN][ 
lOxSPACE]adres[SPACE]niet[SPACE]ge 
vonden":gotol450 
1380 printchr$(147) 

1390 prinf'het[SPACE]adres[SPACE]dat[SP 
ACE]door[SPACE]u[SPACE]gezocht[SPA 
CE]werd[SPACE]is:" 

1400 print"[2xCRSR-DOWN][15xSPACE]adres 

"; c 

1410 print"[3xCRSR-DOWN][CRSR-RIGHT]naa 
m";tab(12)x$ (o,1) 

1420 print"[CRSR-DOWN][CRSR-RIGHT]straa 
t";tab(12)x$ (c,2) 

1430 print"[CRSR-DOWN][CRSR-RIGHT]postc 
ode";tab(12)x$ (c,3) 

1440 print"[CRSR-DOWN][CRSR-RIGHT]woonp 
laats",-tab(12)x$ (o,4) 

1445 ifcoi then gosublSOO 
1450 print"[2xCRSR-DOWN][1OxSPACE]verde 
r[SPACE]zoeken[SPACE](j/n)" 

1460 getc$:ifc$="j" then 1070 
1470 ifc$="n" then 20 
1480 gotol460 

1500 print"[2xCRSR-DOWN][1OxSPACE]verde 
r[SPACE]zoeken[SPACE] (j/n)":fl=5- 
1510 getc$:ifc$="j" then zx=c+l:gotol35 
0 

1520 ifc$="n" then 20 
1530 gotol510 

1540 print"[SHIFT CLR][8xCRSR-DOWN][3xS 
PACE]geen[SPACE]adressen[SPACE]mee 
r[SPACE]met[SPACE]dit[SPACE]gegeve 
n":gotol450 

1550 rem********************* 

1560 rem* gegevens wijzigen * 

1570 rem********************* 

1571 if i=0then 2070 


CE]nummer";na 

1610 print"naam[SPACE]is[SPACE]";x$(na, 
1 ) 

1620 prinf'adres[SPACE]is[SPACE]";x$(na 
,2) 

1630 prinf'postcode[SPACE]is[SPACE]";x$ 
(na,3) 

1640 print"woonplaats[SPACE]is[SPACE]"; 
x$(na,4) 

1650 print:input"nieuwe[SPACE]naam[SPAC 
E]";x$ (na,1) 

1660 input"nieuw[SPACE]adres[SPACE]";x$ 
(na,2) 

1670 input"nieuwe[SPACE]postcode";x$ (na 
,3) 

1680 inpuf'nieuwe[SPACE]woonplaatsx$( 
na,4) 

1690 print"[2XCRSR-DOWN][9xSPACE]gegeve 
ns [SPACE]goed[SPACE] (j/n)" 

1700 get c$:if c$="j" then 1730 

1710 if c$="n" then 1650 

1720 goto 1700 

1730 print"[CRSR-DOWN]nog[SPACE]meer[SP 
ACE]adressen 

1740 get c$:if c$="j" then print"[SHIFT 

CLR]":goto 1580 
1750 if c$="n" then 1770 
1760 goto 1740 
1770 openl,8,15,"s:"+m$ 

1780 closel 
1790 gosub 350 
1800 goto 20 

1810 rem******************* 

1820 rem* gegevens wissen * 

1830 rem******************* 

1835 if i=0then 2070 

1840 printchr$ (147) ;"[CRSR-DOWN] [SPACE] 
u[SPACE]wilt[SPACE]echt[SPACE]wiss 
en[SPACE] (j/n)" 

1850 get cS:if c$="j" then 1880 
1860 if c$="n" then return 
1870 goto 1850 
1880 printchr$(147) 

1890 print"[3xCRSR-DOWN][SPACE]geef[SPA 
CE]nummer[SPACE]te[SPACE]wissen[SP 
ACE]adres" 

1900 input nr 

1910 print"[3xCRSR-DOWN][SPACE]naam[SPA 
CE]";x$ (nr,1) 

1920 print"[SPACE]adres[SPACE]";x$(nr,2 

) 

1930 print"[SPACE]postcode[SPACE]";x$(n 
r, 3) 

1940 print"[SPACE]woonplaats[SPACE]";x$ 
(nr,4) 

1950 print"[2xCRSR-DOWN][2xSPACE]goede[ 
SPACE]adres" 

1960 get c$:if c$="n" then 1840 
1970 ifc$="j" then 1990 
1980 .goto 19601990for a=nr+l to i 
2000 x$(a-1, 1)=x$(a,1) 

2010 x$(a-1,2)=x$(a,2) 

2020 x$(a-1,3)=x$(a,3) 

2050 v.S fa-l , r 1 UI 


■ EINDE LISTING adressenbestand C16” 
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REGEL 

1 

231 

REGEL 

580 

32 

REGEL 

2 

101 

REGEL 

590 

7 

REGEL 

10 

243 

REGEL 

600 

103 

REGEL 

15 

122 

REGEL 

610 

113 

REGEL 

20 

28 

REGEL 

620 

107 

REGE 

30 

0 

REGEL 

630 

31 

REGEL 

35 

40 

REGEL 

640 

215 

REGEL 

40 

217 

REGEL 

650 

87 

REGEL 

50 

108 

REGEL 

660 

215 

REGEL 

60 

25 

REGEL 

665 

38 

REGEL 

70 

34 

REGEL 

670 

77 

REGEL 

80 

148 

REGEL 

680 

94 

REGEL 

90 

12 

REGEL 

690 

205 

REGEL 

91 

115 

REGEL 

700 

88 

REGEL 

100 

15 

REGEL 

710 

217 

REGEL 

105 

130 

REGEL 

720 

247 

REGEL 

110 

131 

REGEL 

730 

51 

REGEL 

120 

216 

REGEL 

735 

169 

REGEL 

130 

102 

REGEL 

740 

255 

REGEL 

135 

235 

REGEL 

745 

118 

REGEL 

140 

131 

REGEL 

750 

121 

REGEL 

150 

155 

REGEL 

755 

34 

REGEL 

160 

131 

REGEL 

760 

27 

REGEL 

170 

77 

REGEL 

765 

35 

REGEL 

175 

128 

REGEL 

770 

29 

REGEL 

176 

45 

REGEL 

775 

36 

REGEL 

180 

154 

REGEL 

780 

31 

REGEL 

185 

251 

REGEL 

785 

37 

REGEL 

190 

155 

REGEL 

790 

33 

REGEL 

200 

161 

REGEL 

795 

171 

REGEL 

210 

50 

REGEL 

800 

130 

REGEL 

220 

137 

REGEL 

810 

249 

REGEL 

230 

84 

REGEL 

820 

107 

REGEL 

231 

85 

REGEL 

830 

51 

REGEL 

232 

86 

REGEL 

840 

114 

REGEL 

233 

87 

REGEL 

850 

115 

REGEL 

240 

30 

REGEL 

860 

116 

REGEL 

245 

217 

REGEL 

870 

117 

REGEL 

270 

131 

REGEL 

880 

249 

REGEL 

280 

180 

REGEL 

890 

1 

REGEL 

290 

131 

REGEL 

900 

157 

REGEL 

295 

38 

REGEL 

910 

1 

REGEL 

300 

77 

REGEL 

914 

23 

REGEL 

310 

201 

REGEL 

915 

112 

REGEL 

320 

27 

REGEL 

916 

154 

REGEL 

330 

179 

REGEL 

917 

235 

REGEL 

340 

107 

REGEL 

925 

31 

REGEL 

345 

31 

REGEL 

930 

122 

REGEL 

350 

248 

REGEL 

970 

225 

REGEL 

360 

170 

REGEL 

980 

211 

REGEL 

370 

120 

REGEL 

990 

100 

REGEL 

371 

121 

REGEL 

1000 

247 

REGEL 

372 

122 

REGEL 

1010 

159 

REGEL 

373 

123 

REGEL 

1020 

2 

REGEL 

380 

130 

REGEL 

1030 

149 

REGEL 

390 

209 

REGEL 

1040 

161 

REGEL 

420 

142 

REGEL 

1050 

121 

REGEL 

430 

215 

REGEL 

1060 

77 

REGEL 

440 

101 

REGEL 

1061 

189 

REGEL 

450 

215 

REGEL 

1062 

153 

REGEL 

455 

38 

REGEL 

1063 

49 

REGEL 

460 

77 

REGEL 

1064 

82 

REGEL 

470 

99 

REGEL 

1070 

173 

REGEL 

480 

100 

REGEL 

1080 

4 

REGEL 

490 

148 

REGEL 

1090 

173 

REGEL 

500 

214 

REGEL 

1095 

38 

REGEL 

510 

244 

REGEL 

1100 

77 

REGEL 

520 

59 

REGEL 

1105 

149 

REGEL 

530 

77 

REGEL 

1110 

254 

REGEL 

540 

106 

REGEL 

1120 

181 

REGEL 

550 

84 

REGEL 

1130 

175 

REGEL 

560 

229 

REGEL 

1140 

97 

REGEL 

570 

120 

REGEL 

1150 

243 


REGEL 

1160 

154 

REGEL 

1660 

181 

REGEL 

1170 

2 5 5 

REGEL 

1670 

237 

REGEL 

1180 

248 

REGEL 

1680 

149 

REGEL 

1190 

254 

REGEL 

1690 

138 

REGEL 

1200 

252 

REGEL 

1700 

230 

REGEL 

1300 

4 

REGEL 

1710 

169 

REGEL 

1305 

75 

REGEL 

1720 

81 

REGEL 

1320 

101 

REGEL 

1730 

46 

REGEL 

1330 

3 

REGEL 

1740 

28 

REGEL 

1340 

10 

REGEL 

1750 

172 

REGEL 

1350 

21 

REGEL 

1760 

85 

REGEL 

1360 

4 

REGEL 

1770 

222 

REGEL 

1370 

130 

REGEL 

1780 

209 

REGEL 

1375 

31 

REGEL 

1790 

37 

REGEL 

1380 

77 

REGEL 

1800 

235 

REGEL 

1390 

171 

REGEL 

1810 

173 

REGEL 

1400 

236 

REGEL 

1820 

16 

REGEL 

1410 

33 

REGEL 

1830 

173 

REGEL 

1420 

178 

REGEL 

1835 

38 

REGEL 

1430 

69 

REGEL 

1840 

135 

REGEL 

144 0 

237 

REGEL 

1850 

236 

REGEL 

1445 

117 

REGEL 

1860 

107 

REGEL 

1450 

171 

REGEL 

1870 

87 

REGEL 

1460 

227 

REGEL 

1880 

77 

REGEL 

1470 

63 

REGEL 

1890 

220 

REGEL 

1480 

84 

REGEL 

1900 

37 

REGEL 

1500 

94 

REGEL 

1910 

50 

REGEL 

1510 

41 

REGEL 

1920 

82 

REGEL 

1520 

63 

REGEL 

1930 

69 

REGEL 

1530 

80 

REGEL 

1940 

237 

REGEL 

1540 

234 

REGEL 

1950 

210 

REGEL 

1550 

1 

REGEL 

1960 

236 

REGEL 

1560 

158 

REGEL 

1970 

172 

REGEL 

1570 

1 

REGEL 

1980 

89 

REGEL 

1571 

38 

REGEL 

1990 

220 

REGEL 

1575 

10 

REGEL 

2000 

100 

REGEL 

1576 

233 

REGEL 

2010 

102 

REGEL 

1577 

63 

REGEL 

2020 

104 

REGEL 

1578 

92 

REGEL 

2030 

106 

REGEL 

1580 

77 

REGEL 

2040 

130 

REGEL 

1590 

66 

REGEL 

2050 

70 

REGEL 

1600 

205 

REGEL 

2060 

CO 

co 

REGEL 

1610 

138 

REGEL 

2070 

77 

REGEL 

1620 

221 

REGEL 

2080 

251 

REGEL 

1630 

208 

REGEL 

2090 

193 

REGEL 

1640 

120 




REGEL 

1650 

122 
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Desktopvideo is het zonder een uitgebreide studio vervaardigen van videoproducties. 
Gewoon op het bureau dus. Vroeger kwam dat neer op wat ruw montagewerk met twee 
videorecorders. Tegenwoordig gaat alles echter snel, comfortabel en (semi)-profes- 
sioneel met behulp van videocomputers zoals de Amiga, video-software, titel- en Spe¬ 
cial Effect Generatoren, digitizers, genlockers en videoprocessors/correctors. 


Desktop Video 

Complete videoproducties met de Amiga, 
video- processor/corrector en SEG 


D esktop en video zijn voor menige zakeiijke gebruiker van video-presen- 
taties en video-professionai een bedenkelijke combinatie. Voor het ma¬ 
ken van videoproducties die klinken als een klok is immers een goed uit¬ 
geruste studio nodig? En wat "klungelen" achter bureau kan toch nooit 
meer opleveren dan slordig gemonteerde familiefilms? Beide vooroordelen 
zijn inmiddels door de techniek achterhaald. Voor relatief weinig geld staat 
nu een volledig uitgeruste video-studio in de huis- of hobbykamer. Iedere 
video-enthousiast kan daarmee in korte tijd (semi)-professionele montages 
en trukages mee maken. 


Video-producties zijn momenteel erg 
gewild bij bedrijfspresentaties. Geani¬ 
meerde beelden zeggen immers veel 
meer dan saaie jaarcijfers, marktont¬ 
wikkelingen en produkt-folders. Toch 
zagen vele kleinere bedrijven van vi¬ 
deoproducties af, omdat uitbesteden 
en in house-producties gewoon te 
duur waren. Met name in de begin¬ 
dagen van de video waren professio¬ 
nele montage en trucage voor de klei¬ 
ne videogebruiker gewoon onbetaal¬ 
baar. Vakstudio’s die vele tientallen, 
en dikwijls enige honderd-, duizenden 
guldens geïnvesteerd hadden maak¬ 
ten de dienst uit. Degenen met een 
krap budget moesten zelf maar wat 
aanfrutselen met een slaaf- en 
moederrecorder. 

De laatste jaren is deze situatie geluk¬ 
kig flink veranderd. Video werd snel 
populair en de vraag naar presenta¬ 
ties voor zakelijk, onderwijs, reklame 
en hobby-gebruik nam dienovereen¬ 
komstig eenkomstigeenkomstigeen- 
komstigeenkomstigtoe. Nieuwe elec- 
tronische technieken deden hun in¬ 
trede en de apparatuurprijzen 
kwamen binnen het bereik van de 


kleine gebruiker. Er zijn nu twee mo¬ 
gelijkheden: 

t.Het gebruik van een grote video¬ 
studio voor het maken van topproduc- 
ties. Hiermee zijn uiteraard grote be¬ 
dragen van vaak meer dan 100.000 
gulden gemoeid. 

2. Kleinschalige video-producties, 
desktopvideo, met een uitrusting 
naar budget. De kwaliteit is mischien 
iets minder, maar wel heel bruikbaar 
en zeker acceptabel voor de beoogde 
doelgroepen. 

Desktopvideo-configuraties 

Welke uitrusting het beste bij u past 
hangt uiteraard van de gestelde eisen 
en het beschikbare budget af. Arbitrair 
zijn er vier verschillende niveaus te 
onderscheiden: 

• De eenvoudige beginnerscon- 
figuratie bestaande uit een video- 
cassetterecorder (VCR) en een 
daaraan gekoppelde huis- of per- 
sonal computer. De computer 
wordt hierbij gebruikt als titelgene¬ 
rator, animator, en muziekstudie. 


• De intermediate-configuratie 

breidt de beginnersset uit met een 
videocamera. De met de videoca¬ 
mera gemaakt beelden kunnen 
samen met de door de computer 
gemaakte graphics (tekeningen, 
animaties en titels) op een VCR 
gemonteerd worden. Dit inter- 
mediate desktopvideo systeem is 
heel geschikt voor het maken van 
vakantie-, familie- of educatieve 
video’s. 

• Het kleine zaken-systeem omvat 
naast de VCR, videocamera en 
computer een genlocker voor het 
maken van superposities (twee vi¬ 
deobeelden over elkaar heen leg¬ 
gen), een digitizer voor het over¬ 
nemen van grafische afbeeldingen 
of foto’s en een kopieerstandaard. 
Een aantal producenten zal in dit 
systeem ook een Special Effect 
Generator (SEG) en een tweede 
VCR willen opnemen. Met behulp 
van deze videoconfiguratie zijn 
bescheiden, maar professioneel 
ogende videoproducties in betrek¬ 
kelijk korte tijd te maken. Het klei¬ 
ne zaken systeem is geschikt voor 
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de zakelijke gebruiker, onderwijs¬ 
man/vrouw, serieuze hobbyist en 
ook voor kleine reklame-produc- 
ties. 

• De complete desktop-studio 

omvat naast de bij het kleine 
zakensysteem omschreven uit¬ 
rusting een video-editor, meer dan 
twee VCR’s (een moeder- en 
enkele slaafrecorders) en een 
SEG. Kortom de complete uitrust¬ 
ing voor commercials, demon¬ 
stratie-, onderwijs- en zakelijke 
presentatie-video’s. Ook de veel 
eisende hobbyist waant zich met 
een dergelijke configuratie in het 
video- Mekka. Helaas staat er wel 
meer dan ƒ 10.000 gulden onder 
aan het budget. 

Ondanks alle mogelijkheden die de 
genoemde configuraties bieden kun¬ 
nen zij nooit de eigen visie en de 
creativiteit van de videomaker vervan¬ 
gen! 


De hardware slecht alleen de 
grenzen der mogelijkheden. De 
maker blijft bepalend voor het 
eindprodukt en professionele re¬ 
sultaten zijn ook met een heel 
eenvoudig e opzet mogelijk. _ 


De videocomputer 

Een videocomputer behoeft in wezen 
geen peperduur en specialistisch ap¬ 
paraat te zijn. Met de juiste software 
aan boord valt van een Amiga 500, 
1000 of 2000 computer met een 
kleuren-monitor een handige en crea¬ 
tieve videohulp te maken. De flitsen¬ 
de animaties, meer dan 4.000 
schermkleuren, speciale TV- titelmo¬ 
gelijkheden, muziekstudio-mogelijk- 
heden,hedenhedenhedenheden 
HIRES-beelden en 3D-tekenpakket- 
ten zijn inmiddels we-reldberoemd ge¬ 
worden. Als bezwaren voor de Amiga 
gelden de relatief dure randap¬ 
paratuur en de echte professional 
vindt de videokwaliteit nog net niet 
goed genoeg. NB.: Commodore is in¬ 
middels drukdoende de PAL-videok- 
waliteit van de Amiga 2000 op te vij¬ 
zelen. In het najaar worden een speci¬ 
ale genlocker- en Composiet video¬ 
kaart verwacht. Tot dan zit de 
videohobbyist nog aardig in het kwali- 
teitsschip. De in de 1000 gebouwde 
PAL-encoder en de TV/composiet- 
modulator voor de 500 bieden onvol¬ 
doende PAL-kwaliteit voor (semi)- 
professionele doeleinden. De spe¬ 
ciale PAL-kaart voor de 2000 brengt 
het er in deze iets beter van af. 

In RGB of op een PAL-composiet-vi- 
deo lockende monitor ziet het er alle¬ 


maal gedetailleerd en kleurrijk uit. Bij 
opname op standaard VHS-formaat 
wordt het de door de huiskamer TV 
verwondende gebruiker echter stro¬ 
perig en groen en geel voor de ogen. 
Een kopie is al helemaal niet meer om 
aan te zien. Kortom het composiet- 
videosignaal van computer-PAL-en- 
coders is niet voldoende voor profes¬ 
sionele VHS-kwaliteit. Wie normale 
broadcasting quality wil zal diep in de 
beurs voor een locked PAL-encoder 
of professionele genlocker moeten 
tasten. 

Voor de amiga is inmiddels voldoende 
videosoftware verkrijgbaar. Wij noe¬ 
men hier: de Deluxe Video 1.2, De- 
luxe Paint II en Aegis Animator. 

Processors en correctors 
Bij de opname, het overspelen of 
kopiëren, het maken van trucages en 
het monteren ontstaan onvermijdelijk 
beeldfouten, kleurverschuivingen en/- 
of ruis. Zoals bekend loopt bij het ko¬ 
piëren de scherpte terug en ontstaat 
ruis. Bij de opname worden nogal 
eens de witbalans of de tegenlicht- 


hefzelfde met de video-signalen: 
elimineert de ruis en bevoor¬ 
deelt de beeldkwa-liteit bepalen¬ 
de frequenties. 

Het verschil tussen een corrector en 
een processor is tegenwoordig niet zo 
duidelijk meer. Vroeger richtte de pro¬ 
cessor of enhancer zich voornamelijk 
op de overspeel- en de corrector zich 
op de opnamefouten. Bij de nieuwste 
modellen ziet men steeds meer 
functies van de een in de ander gein- 
tegreerd worden. 

Videoprocessoren en correctors bie¬ 
den in het algemeen de volgende mo¬ 
gelijkheden: 

• Verbetering van de kopieer-kwa- 
iiteit. Verlies aan beeldscherpte, 
kontrast en de toename van ruis 
worden zoveel mogelijk tegenge¬ 
gaan. Enkele apparaten bieden de 
mogelijkheid om meerdere kopie¬ 
ën tegelijk te maken. 

• Correcties van het inputsignaal. 

Bijvoorbeeld het traploos bijstellen 
van de kleurbalans met een joy¬ 
stick, het oppeppen van kontrast- 




voorbeelden van wipes 


correctie vergeten. En bij het mont¬ 
eren met slaaf- en moeder-VCR ont¬ 
staan nogal eens storende strepen. 
Een goede videoband in de recorder 
stoppen helpt wel enigzins bij het 
kopiëren, maar na drie maal over¬ 
schrijven wordt het resultaat bij consu- 
menten-video al gauw bedroe-vend. 
De electronische vervuiling wint het 
van de tape- en recordertechniek. 
Hulp komt er in de vorm van de micro¬ 
processor gestuurde video-proces- 
sor en videocorrector. Net als bij uw 
stereo-installaties is het via electro¬ 
nische foefjes, digitale correctie en fil¬ 
teringen mogelijk om stoor- en ruissig¬ 
nalen te elimineren. 

Een processor of corrector doet | 


arme beelden, het verhogen/verla¬ 
gen van de kleurverzadiging, ver¬ 
beteren van de scherpte (lukt niet 
bij echt onscherpe opnamen!) en 
het corrigeren van onder/overbe¬ 
lichting (voor zover het signaal 
nog te bewerken valt). 

Verbetering van de geluidskwa¬ 
liteit en geluidsmixages. De 

meeste apparaten beperken zich 
tot de mixages. Een enkeling be¬ 
schikt ook over audiofilteringen. 

Enkele apparaten beschikken ook 
over beperkte trukage- mogelijk¬ 
heden zoals fade ins en -outs, wi¬ 
pes, valse kleuren en sound on 
sound. 
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* Screen splitting. De monitor 
wordt als het ware in tweeën ge¬ 
deeld waarbij de linker helft het 
beeld voor en de rechter helft het 
beeld na bewerking laat zien. 

* Bypass-optie om signalen die 
geen bewerking behoeven onge¬ 
hinderd te laten passeren. U kunt 
de processor of corrector dan 
standaard in uw videosysteem op¬ 
nemen. 

Enkele voorbeelden van videoproces- 
sors -correctors zijn: 

* De Elac VHP-185 video-processor 
regelt de helderheid, de kleurbalans 
(niet de fasel) en de scherpte bij. Ver¬ 
der beschikt deze processor over een 
fadermogelijkheid en een regelaar 
voor de geluidssterkte. De prijs ligt 
rond de ƒ 600,-. 

* De Bauer VED-200 biedt dezelfde 
mogelijkheden als de Elac met als 
extra’s gemakkelijk werkende schuif- 
regelaars i.p.v. draaiknoppen en 
screen splitting voor de monitor. De 
VED-200 kost circa ƒ 1.100,-. 

De JVC JX-E3 Video-processor 
werd speciaal ontworpen om de ko- 
pieer-kwaliteit te verbeteren. Detail- 
verbetering, verbetering van de totaal- 
scherpte via de techniek van de dub¬ 
bele vertragingslijn en een continu in¬ 
stelbaar ruisfilter zijn de grote troeven 
van deze processor. 

* De JVC JX-C7 videocorrector be¬ 
schikt over een praktische kleurstell¬ 
ing (rood, groen en blauw) via een 
traploos verplaatsbare joystick, regel¬ 
bare kleurverzadiging, beeldverbeter¬ 
ing bij het kopiëren via de techniek 
van de dubbele vertragingslijn, ruisfil¬ 
ter, stabilisatie-circuit voor schone vi- 
deo-overgangen, audio/videofaders 
en de mogelijkheid tot geluidmixen. 
Voor prijzen van de JVC-produkten 
uw dealer. 

* De Kramer VS 11 E MK 2 video- 
processor biedt o.a. video gain- 
regeling, contrastregeling, kleurregel- 
ing, faseregeling, scherptecorrectie, 
screen splitter, een -S-voudige in- 
gangsschakeling, ruisfiltering, 3 ge¬ 
bufferde AV-stereoingangen, on-line 
videoprocessing en een 10-polige ca- 
mera-aansluiting. 

SEG’s 

Special Effect Generators zijn, zoals 
de naam al aangeeft, bedoeld, voor 
het maken van videotrukages. De tru¬ 
cages worden dus achteraf aange¬ 
bracht. Dat werkt meestal handiger 
dan tijdens de opname (fade ins/outs 
en het gebruik van kleurenfilters). 
Vooral als er nog gemonteerd moet 
worden. 


SEG’s worden net als filtersystemen 
nogal eens sceptisch bekeken. Een 
veel gehoord vooroordeel verkondigt 
dat al die trukages slechts gebruikt 
worden om het gebrek aan talent en 
creativiteit van de maker te verhullen. 

Men vergeet daarbij echter twee be¬ 
langrijke zaken: 

1. Een SEG wordt niet uitsluitend ef- 
fectmatig gebruikt, maar ook ingezet 
voor het maken van nette beeldover¬ 
gangen zoals wipes, fade in en fade 
out. 


2. Mits doeltreffend gebruikt kunnen 
de Special Effects de video ook pro¬ 
fessioneel aankleden of de bood¬ 
schap van de film accentueren. 
Overdaad schaadt, maar bij het ge¬ 
heel weglaten van trukages mist de 
videomaker heel wat creatieve moge¬ 
lijkheden en montageplezier! 

Het zou te ver voeren om hier alle mo- 
gelijkhe-den van de SEG’s te bespre¬ 
ken. Wij beperken ons daarom tot de 
meest gebruikte trukages: 

• Fade in/out. Overgangen van 
donker naar licht (fade in) en van 
licht naar donker (fade out) zijn 
een geliefde montage-methode. 
Met een SEG zijn zij dikwijls doel¬ 
treffender aan te brengen dan bij 
de opname. Een opname kan bij¬ 
voorbeeld te lang blijken en met 
de SEG kunt u een flink stuk voor 
het einde beginnen met faden. 

• Wipe-effecten. Bij een wipe wordt 
het life videobeeld geleidelijk aan 
vervangen door een effen (ge¬ 
kleurd) vlak. Daarbij zijn vele va¬ 
rianten zoals vierkanten, circels, 
rechthoeken en diagonalen moge¬ 


lijk. Soms kunnen meerdere wipe- 
typen met elkaar of fades gecom¬ 
bineerd worden en bestaat de mo¬ 
gelijkheid tot een reverse wipe. 
Het wipen kan doorgaans zowel 
automatisch (voor ingestelde tijd) 
als met de hand (meer mogelijk¬ 
heden, maar niet zo vloeiend). 

Colorize. Dit effect lijkt wel wat op 
het gebruik van een gekleurd filter. 
Het beeld krijgt een eigen sterk 
overheersende kleur. Bijvoorbeeld 
blauw als suggestie van koude. Er 


is meestal keuze uit meerdere 
kleuren en een traploos instelbare 
intensiteit. 

Paint geeft het effect van gedigita¬ 
liseerde computerbeelden of een 
speudo-solarisatie. 

Negatief-schakeling voor het om¬ 
keren van het positive videobeeld 
tot Science fiction achtige creaties. 

Beeld in beeld- en superimpo- 
se-technieken. Hierbij wordt het 
beeld van een videobron over dat 
van een ander heen gelegd. Het 
eenvoudigste geval is een titel die 
later over de eigenlijke video-op- 
name wordt aangebracht. Bij ge¬ 
avanceerde SEG’s zijn zelfs met 
de joystick verplaatsbare beeld¬ 
kaders en overvloei-ers mogelijk. 

Auto cross input. Een wipeva- 
riant tussen twee videorecorders. 
Zodra het beeld van recorder 1 
door de wipe verdwenen is komt 
dat van VCR2 op. 

Audio mixages en sound on 
sound met input van de huiska- 
merstereo. 
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• Zwart-wit-optie. 

• Defocus of softeffect voor een 
dromerige onscherpte. 

SEG’s krijgen steeds meer mogelijk¬ 
heden. Veelzijdige modellen zijn jam¬ 
mer genoeg nog altijd flink aan de 
prijs. Als voorbeeld worden hier een 
wat beperkter en een uitgebreider mo¬ 
del kort besproken: 

* De JVC JX-W9 is een SEG van rond 
de ƒ 1500,- met verrassend veel mo¬ 
gelijkheden. O.a. wipes in 16 patronen 
en 6 kleuren, auto cross input, fade 
in/out, zwartwit, paint, negatief, colo- 
rize, wipe reverse, diverse effectcom- 
binaties en audiomix. 

* De Technofilm SEG kost rond de 

ƒ 3000,-, maar biedt dan ook wel wat 
meer dan de JVC SEG. Vier video- 
bronnen i.p.v. twee, een pattern gene¬ 
rator voor 60 verschillende wipes, fa¬ 
de in/out, polarisation (zachte kleur¬ 
tinten) en posterisation (negatieve 
beelden) met instelbare intensiteit, 
joystick bestuurbare beeld in beeld¬ 
techniek en spotlight techniek om het 
basisbeeld naar de achtergrond te 
drukken (= minder helder weergeven), 
aanpassing van de grootte van het 
beeld-kader en audio-breakaway voor 
het onge-stoord doorlopen van het ge¬ 
luid bij beeldtrucages. 


Overige randapparatuur 

Het naadloos, dat wil zeggen zonder 
storende beeldlijnen en ruis, monte¬ 
ren van video-opnamen is geen si¬ 
necure. Een editor kan daarbij goede 
diensten bewijzen. Editors zijn ge¬ 
avanceerde montage-apparaten. Zij 
plaatsen de VCRs on line, starten de 
recorders, controleren de bandsnel- 
heid, synchro-niseren de beelden en 
kunnen de start en eindposities van 
de verschillende scenes tot op 1 beeld 
nauwkeurig in hun geheugen opslaan. 
De gebruiker behoeft slechts de juiste 
tellerstanden plus volgorde in te voe¬ 
ren en op de starknop te drukken. De 
editor doet de rest. 

Editors zijn o.a. verkrijgbaar van Kra¬ 
mer, Sony en Canon. 

Een computer kan niet zo maar een 
foto of illustratie bewerken. De afbeel¬ 
ding moet eerst gescand (in beeldlij¬ 
nen ontleed) en vervolgens in bits en 
bytes omgezet worden. Dat doet een 
zogenaamde digitizer voor u. Is het 
beeld eenmaal gedigitaliseerd dan 
kan de videoproducent(e) dit met een 
geschikt teken- of paintprogramma in¬ 
kleuren, dingen erbij tekenen, ver¬ 
vreemden, roteren, dupliceren vergro¬ 
ten en verkleinen. Kortom de gehele 


grafische trukendoos op het gedigi¬ 
taliseerde beeld loslasten. 

Bij video gaat het meestal om met ca¬ 
mera’s opgenomen beelden. Het 
beeld wordt door de hardware, bij¬ 
voorbeeld DigiView voor de Amiga, 
gedigitaliseerd en vervolgens met 
paintsoftware (in ons voorbeeld Digi- 
Paint) bewerkt. 

Voor het goed overnemen van te digi¬ 
taliseren beelden is een copystand 
met bijbehorende egale verlichting 
onmisbaar. Deze copystand is tevens 
bruikbaar voor het filmen van tabletps. 
Professionele videproducties liggen 
tegenwoordig binnen ieders bereik. 
Voor relatief weinig geldt koopt men 
bij de eigen PC of 68.000- machine al 
een complete studio voor het maken 
van familiefilms, reklameproducties, 
zakelijke presentaties en educatieve 
of promotievideo’s. De laatste gren¬ 
zen worden nog technisch geslecht en 
dan houdt niets de eigen creativiteit 
meer tegen. Alleen zij die topkwaliteit 
nastreven zullen nog naar de grote 
professionele studio’s moeten uitwij¬ 
ken. 


Een Nederlandstalig boek (168 
pag.), waarmee u niet aileen inzicht 
krijgt in wat er met Basic 3.5 alie- 
maal mogelijk is, maar ook veel bre¬ 
dere computertoepassingen be¬ 
handeld worden en randapparatuur 
en software uitgebreid aan de orde 
komen. 


Het onmisbare boek 
voor iedere C-16 
bezitter, compleet met 
vele 

programmavoorbeelden, 
zoals een klein 
tekstberwerkings - 



VAN ST ART MET 
DE C-16^^^ 


IN BASIC 3.5 


VOOR DE C-16 
ook bruikbaar 
voor PLUS 4 


Prijs 

ƒ 27,50 

plus ƒ 3,- 
verzendkosten 


programma. 


Direkt te bestellen bij: INFOLIST 


Postbus 1047 
1270 BA Huizen 
tel.: 02152-62343 


Alleen levering na vooruitbetaling 
van ƒ 30,50. 

Van start met de C-16 in Basic 3.5 Gironummer 3157656 tnv. Infolist, Huizen. 
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In twee eerdere afleveringen heeft Peter Heinckiens verteld over de mogelijkheden tot 
het maken van een 80-kolomsscherm op de C 64. Hij heeft daarvoor ook een program¬ 
ma geschreven, Minigraph, dat helaas vorige maal niet volledig kon worden geplaatst. 
Hieronder volgt daarvan het staartje in de vorm van listing 3 en 4. 


Minigraph (siot) 


Listing 3 & 4. 


i'i :i i-'-i 1 GP:t--!H-H 


!-' i;;,' i ’ fc! h! t-i fc. .i l‘••f C: b. fH 


C > 1 98b' 


REH ^^^^Pfll^!fll'''IET'E!RS^^^^ 

P/» ™ DEC 

= DEC*:: "BBB";:' 
VBK -■ ÜECe; "BDSB" > 
- DEC':; "BCCD'' 

HüEri förrMHF' brn 
SVS □ECC‘’BBIÖ" > 


69 SVS ÜE]C i 
r^'0 FÜE: T~1 "!' 
71 NEXT 

ne;>:;i" 

/4 RE-f'] Bil 
GE I KE't'F'I^' 
F'S SVS DEiJ <. 
r ? PRlH'i 


RErt 1£H:.EN HOR .t ZÜfl'l'RLE RS 
PÜKE DEC: X2. RNÜ R;’-: 

PÜKE DEC <"1154"::'.' X2 / b;-;: 
SVS XI RNÜ Rr-C' XI / BXXt 

RETüRh 


LISTING :ii 


b:£i‘'i Ttiik.EN VEICTI k;rl.e, RS 

PQKE DEC< " 115;li" > , V2 

SVS VH2.' X RNÜ RX.' X BX.- VI 

RETURN 

REN HOOP DPRÜGRRNMR 


V=:30 ' XI-100 

V~150 : X1-100 

X~100 : Vl=;i'0 

X-400 : Vl-;li0 


X2:::::400 


GOSUB 37 
GDSUB :l!? 
GOSUB 4 ;,:: 
GOSUB 4;'-i 


hUR V-~:::il ro 149 

-.Z' ( ' 

i'-lEXT 


FOR X~50 TU 450 

IF X:>99 RNÜ X<401 THEN SVS UX 
IF X'C—99 UR X::>—401 the:!'''! :EV:S e< 
NEIKT 


RND HiT.' r 
< Rf-fÜ RX.' 


REM kle:ur 

FOR R=^l TU ir; 




taatm 








MONITOR 

PC 


SP; RC XP; t'P; ;sP’ 


FBÜ 0 t; 

1 0 !ï 

j 01 ; 

01 ; 

J 00 FS 













SC 

00 

06 

28 

00 

86 

10 

FB 

88 

01 

86 

60 

8 C 

00 

06 

28 

> 001=11 0 

00 

86 

10 

F 8 

HO 

01 

86 

60 

R0 

19 

R9 

81 '’ 

20 

00 

0B 

20 ' 

>00820 

22 

0 B 

R 2 

40 

B0 

12 

8 R 

20 

00 

0B 

R0 

IF 

R9 

00 

20 

00 

>00830 

0B 

B0 

IE 

20 

00 

0B 

CR 

10 

EB 

60 

R0 

19 

R9 

40 

20 

00 

>00840 

0 B 

20 

08 

CE 

B2 

ElËl 

48 

88 

Ei 

85 

FB 

86 

FB 

84 

FC 

48 

>00850 

20 

70 

08 

68 

38 

29 

07 

RP» 

FR 

R9 

07 

E5 

FR 

RS 

R9 

01 

>00860 

80 

00 

F 0 

04 

0B 

88 

80 

FC 

85 

FR 

R0 

12 

R5 

FD 

20 

00 

>00870 

08 

88 

flS 

FC 

20 

00 

0 B 

R 0 

IF 

20 

08 

08 

60 

46 

FB 

66 

>00880 

FR 

46 

FB 

66 

FR 

46 

FB 

66 

FR 

1 S 

R9 

00 

85 

FD 

R5 

FC 

>001890 

B0 

04 

65 

F 8 

90 

03 

E 6 

FD 

18 

RFl 

80 

F '6 

0R 

26 

FD 

0R 

>00JBB0 

26 

Fü 

0B 

26 

FD 

0R 

26' 

FD 

65 

FR 

85 

FC 

R5 

FB 

65 

FO 

>00880 

85 

FD 

60 

20 

49 

0B 

05 

FR 

48 

86 

0B 

20 

49 

0B 

85 

FB 

>00880 

B5 

FR 

49 

FF' 

25 

F B 

48 

R0 

12 

R5 

F'D 

20 

00 

0B 

88 

R5 

> 00 BD 0 

FC 

20 

00 

08 

6 E' 

B0 

IF 

20 

00 

0B 

60 

RO 

50 

1 1 

80 

52 

>00E!E0 

11 

FID 

51 

11 

88 
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de MicroDrukker 

TextshopI desktop publishing center 

Roelof Hartstraat 27, Amsterdam 020-644659 
Bespaar honderden guldens op zetkosten voor briefpapier, fakturen etc. 

Pluk de vruchten van de DTP techniek, bestel nu een complete set originelen voor uw zakelijk 
briefpapier, vervolgblad, factuur, aanmaning en declaratie-formulier. De complete set originelen, 
die u zo naar de (snel)-drukker of copyshop kunt brengen, kost u slechts f 100,- incl BTW. 

Bel op voor een voorbeeld, geef dan uw gegevens op, de hele set komt per post bij u binnen. 
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Het wissen van Basicprogramma’s uit het Basicgeheugen kan op zeer eenvoudige 
wijze met het Reset-commando. Het is veel sneller en prettiger dan het telkens uitzet¬ 
ten van de computer. S. Hol behandelt hieronder de verschillende mogelijkheden om 
bij de Commodore 64 met dit commando te kunnen werken. 


Wissen van het Basicgeheugen 


Reset 


D e reset, of wel het resetten is een (snelle) manier om in het basic¬ 
geheugen de basicprogramma’s te wissen. Ook stopt een machinetaal- 
routine door een reset. Het bewijs vinden we in de praktijk. Laad maar eens 
een in machine-code geschreven programma, en list dit na het laden. Ont¬ 
houd het begin-adres (de verschenen SYS met een decimale waarde). Run 


het programma en reset het. Tik dan 
gramma zal in 90% van de gevallen v 

Waarom Reset 

Vaak is de enige mogelijkheid om 
weer ruimte in het geheugen te krij¬ 
gen, naast resetten de computer uit¬ 
zetten, (soms kan het ook met RUN/ 
STOP + RESTORE, maar dat is maar 
een enkele keer). Maar ook wanneer 
storende programma’s verwijderd 
moeten worden zit er vaak niets an¬ 
ders op, dan de machine uit en aan te 
zetten. 

Dat uitzetten van de computer is niet 
goed voor het apparaat, vandaar het 
nut van een reset-commando. Reset 
heeft nog een groot voordeel: reset 
werkt namelijk toch nog als we een 
programma niet d.m.v RUN/STOP + 
RESTORE kunnen stoppen, wat vaak 
het geval is. 


Terughalen na een reset 

Als men eenmaal een programma 
heeft ge-reset, is het basicgedeelte 
van het programma verdwenen. Dit is 
makkelijk terug te halen door de vol¬ 
gende opdracht: 

POKE 2050,8:SYS42291: 

POKE 46, 

PEEK(35)-(PEEK)???253): 

POKE 45, 

PEEK(781)+2AND255 

Dus als u een (basic)programma na 
een ‘onbedoelde’ reset wilt her-listen, 
-saven, en runnen, type dan de bo¬ 
venstaande regel in. 


e SYS in met het beglnadres, het prO' 
ïer lopen. 

Hoe werkt Reset 

Het resetten van de computer kan op 
verschillende manieren. We onder¬ 
scheiden naast het uitzetten vier ma¬ 
nieren: 

^ d.m.v. de serial l/O-poort 
° d.m.v. de user l/O-poort 
° d.m.v. een eventuele cartridge in de 
cartridgepoort (iets wat we hier niet 
behandeien) 

d.m.v. een basic commando (het 
straten van een machinetaalroutine) 

Serial I/O 

Ais we de seriëie poort (aan de achter¬ 
kant de derde ingang van rechts) be¬ 
kijken ontdekken we zes connectoren. 
Om nu te resetten gebruiken we ‘in¬ 
gang’ twee en zes2 en 6. De twee 
staat voor ground (GND), en de zes 
voor reset (RST). 

Door deze twee te verbinden reset 
men de computer. De schakeiing gaat 
ais voigt: 

Benodigdheden; 

° 1x passende plug 
° 1x drukschakelaar, die na het druk¬ 
ken geen contact meer maakt. 

° 1x 30 cm iange geïsoleerde koper¬ 
draad. 

User I/O 

De userport (achterkant: de meest 
rechtse) heeft 24 ingangen en is als 
reset-functie de enige opiossing naast 


de cartridge-reset ais u een drive 
heeft, want deze moet op de serieie 
poort worden aangesloten. Van ach¬ 
ter gezien ziet de userport er zo uit: 

Reset is nu mogelijk door 'ingang’ een 
(ground:GND) en drie (reset:RST) te 
verbinden. De schakeling ziet er voor 
de userport zo uit: 

Benodigdheden; 

° 1X passende plug op userport 
°1x zelfde schakelaar als bij serial 
port’ 

°1x 30cm lange ge'isoleerde koper¬ 
draad. 


SYS-commando 

Er is nog een vierde manier en dat is 
een SYS-commando, maar daar heb¬ 
ben we niets aan als we een program¬ 
ma draaiend hebben (we kunnen dan 
namelijk geen opdrachten geven). 
Toch is het commando handig dus 
hier is het: 

SYS 64738 ($FCE2) 

Tot zover de mogelijkheden om uw 
Commodore 64 te resetten. 
veel succes! 

S. Hol 
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Terminologie 

H et zijn in de computerwereid niet alieen de machines en de software die 
veranderen, ook het computer-jargon ontwikkeid zich. In het nederlands 
hebben we daar niet zo’n last van, het zijn vooral de engelse termen, die 
steeds fraaier worden. Dat komt voor een deel omdat bedrijven nieuwe ter¬ 
men moeten verzinnen voor functies of onderdelen. 


Een goed voorbeeld daarvan is Micro¬ 
soft, dat het begrip Treads (draden?) 
invoerde met OS/2. Maar dat is nog te 
vergeven. Het zoeken naar woorden 
om iets heel nieuws duidelijk te maken 
is nodig en soms komen er ook best 
aardige vondsten uit. Maar wanneer 
IBM niet meer zegt, dat de oudere 
modellen niet meer leverbaar zijn, 
maar spreekt over "functionally stabi- 
lized", dan wordt het lachwekkend. 
Want de oude AT en XT modellen zijn 
gewoon niet meer te koop en men ont¬ 
wikkeld er dus geen nieuwe dingen 
meer voor. Waarom is het dan nodig 
om dat allemaal schitterend te verhul¬ 
len in onbegrijpelijke en misleidende 
termen. 

Apple doet weer op een andere ma¬ 
nier aan taalvervuiling. Daar heeft 
men enerzijds de neiging om gewild 
creatief te willen zijn, met bommetjes 
op het scherm in plaats van een ook 


begrijpelijk "error" boodschap. Maar 
men gaat nog een stapje verder. In de 
pogingen de Macintosh te verheffen 
tot een soort half-goddelijke status, 
past men ook het vocabulaire aan. In 
plaats van gewoon termen als get of 
open te gebruiken, spreekt men nu 
over "invoke", en dat heeft een soort 
mystieke klank, helemaal passend bij 
de paternalistisch neerbuigendheid 
naar de computer-gebruiker, door het 
bedrijf uit Cupertino. De echte Mac- 
gelovigen vinden dat prachtig, zij wil¬ 
len namelijk geen werktuig, maar een 
afgodsbeeld hebben, dat bovendien 
nog doet wat zij willen. Zich onderwer¬ 
pen aan de beeldtirannie der ikonen, 
en ademloos luisteren naar wat de 
Apple hogepriesters verkondigen, 
hoort daar helemaal bij. 

Apple, een bedrijf dat mede groot ge¬ 
worden is door de "Hype", de opwind¬ 
ing in de media rond nieuwe produk- 
ten, heeft zich daar nu ook publiekelijk 


toe bekeerd, alleen hebben ze een R 
achter het woord gezet en nu is het 
nieuwe buzz-woord Hyper geworden. 
Een laatste voorbeeld van verwron¬ 
gen taalgebruik is "platform". Op aller¬ 
lei conferenties en tentoonstellingen 
praat men niet meer over een bepaal¬ 
de computer of een operating sys¬ 
teem, maar over een platform. Er is 
een Unix platform, een Mac-platform, 
een 386 platform, het klinkt allemaal 
veel interessanter dan dat je op een 
micro werkt. Maar we zullen er wel 
weer aan wennen, zolang we ons ge¬ 
zond verstand-platform maar gere¬ 
geld "invoken". 

Luc Sala. 


Op uw C64/C128 of MS DOS ma¬ 
chine op EENVOUDIGE wijze uw 
KAS, BANK en GIRO bijhouden 
met: 




6* 


oï 


ƒ99,00 

(incl. BTW) 
franco 

Beurs 64 is een menugestuurd 
programma. 

Zie: Commodore Info 1/87 


MARVELD COMPUTERFRAMES 


Voor C-64 en 
MSX computers 


ƒ169,- 

Incl. btw 
franko 



MARVELD printersteunen 
Voor de prijs hoeft 
u het niette laten: 
slechts ƒ 29,95 incl. BTW. 
(excl. verzendkosten) 


COMPUTERTAFELS 

BONDWELL PC’S 

3jaar GARANTIE 


Marveld Computing, Berkenlaan 57, Malden. Tel. 080-583522 of 08851 -1 7583 
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In HiFi-winkels en demonstratieruimten wordt vaak zeer veel geschakeld om de ver¬ 
schillende apparaten in diverse kombinaties te laten horen. De bronnen kunnen geko¬ 
zen worden: CD-spelers, kassettedecks, platenspelers, tuners; de versterkers kunnen 
geschakeld worden: merk A, merk B enz. Kees van der Vlies belicht een marktsegment 
waarin de computer goede diensten kan bewijzen. 


computersturing en hifi 


HIFI-SCHAKEL-UNITS 


H et is voor de klant in de meeste HiFi-zaken scherp opletten en goed ont¬ 
houden wat er nu precies gedemonstreerd wordt: Was die versterker 
nr.1 nu een ONKYO of een LUXMAN ? Kostte die BOSE-luidspreker nu ƒ 395 
of ƒ 595 ? Luister ik nu naar het cassettedeck of de radio ? 

De verkoper moet met een liefst ein¬ 
deloos geduld talloze malen schake¬ 
len van de ene kombinatie naar de 
andere. De klant kan zich na verloop 
van tijd wat ongemakkelijk gaan voe¬ 
len als hij erg lang beslag legt op de 
bereidwilligheid van de verkoper. 


Hier iijkt een taak voor de computer 
weggelegd. Het geduld van de com¬ 
puter is eindeloos, de schakelmoge¬ 
lijkheden zijn zeer talrijk en de bijbe¬ 
horende informatie kan via een beeld¬ 
scherm zichtbaar gemaakt worden. 
Toch heeft het tot nu toe ontbroken 
aan gebruikersvriendelijke schakel- 
eenheden. Dit heeft ermee te maken 
dat het schakelen van hifi-komponen- 
ten iets anders is dan het schakelen 
van de huiskamerverlichting of het 
koffiezetapparaat. Het gaat namelijk 
om zeer komplexe en vrij zwakke sig¬ 
nalen, die gevoelig zijn voor storingen: 
schakelklikken, brom, ruis, vervorm¬ 
ing, niveauverschillen, aantasting van 
het frekwentiebereik etc. 


Een Nederlands produkt 

De Nederlandse firma Lumibel 
Software Enterprises in Arnhem heeft 
een komplete set op de markt 
gebracht, waarmee hifi-apparatuurop 
alle mogelijke manieren automatisch 
geschakeld kan worden. De kastjes 
heten; Robot 101, Robot 202 en 
Robot 303. Alleen de computer en de 
vereiste kabels behoeven eraan 
gekoppeld te worden en de installatie 
draait. De meegeleverde software is 
bestemd voor de Commodore-64 of 



128, maar ook een MSX-versie is al 
beschikbaar en andere versies (PC ?) 
zijn of worden ontwikkeld. 


° 7) beveiliging van de aangesloten 
apparatuur tegen diefstal 
De ingevoerde gegevens kunnen te 
allen tijde door de 
gebruiker gewijzigd 
of aangepast wor¬ 
den. Men heeft zich 
dus qua veelzijdig¬ 
heid geen beperkin¬ 
gen willen opleg¬ 
gen. 

De apparatuur 

De kasten zijn in de 
bekende 19-inch 
racks te monteren, 
maar kunnen ook 
los staan. 

De Robot 101 is be¬ 
stemd voor het 
schakelen van ma¬ 
ximaal 15 luidspre- 
kerparen (waarvan eventueel 5 stel 
aktieve boxen). 

De Robot 202 kan verschillende ver¬ 
sterkers (maximaal 15) schakelen en 
heeft, zoals de andere Robots, een 
uitgang voor direkte LED-aansturing, 
welke m.b.v. relais ook voor aanstur¬ 
ing van spots te gebruiken is. 

De Robot 303 schakelt (maximaal 15) 
bronnen en bewaakt de aangesloten 
apparaten. Daarvoor is zelfs een accu 
ingebouwd. Geen der aangesloten 
apparaten kan ongemerkt wegge¬ 
haald worden. Het uitgangssignaal 
kan ook voor opname op een recorder 
gebruikt worden (3 uitgangen). 


Tal van zaken zijn hiermee te pro¬ 
grammeren; 

° 1) de met elkaar te verbinden kom- 
ponenten 

°2) de volgorde waarin de onder¬ 
scheiden kombinaties ‘automatisch’ 
klinken 

° 3) de speelduur van iedere kombi¬ 
natie 

° 4) de op het beeldscherm weer te 
geven informatie 

° 5) overslaan van minder gewaar¬ 
deerde kombinaties 

° 6) lichtsignalering van de ingescha¬ 
kelde komponenten 
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In (lijn)niveau-aanpassingen is voor¬ 
zien, zodat niet telkens de volume¬ 
regelaar hoeft te worden bijgesteld. 
Voor handbediening zonder computer 
is een los toetsenbord leverbaar. Ui¬ 
teraard vervalt dan de programmeer¬ 
mogelijkheid. 

Alle ‘Robots’ kunnen dubbel worden 
uitgevoerd, zodat de capaciteit ver¬ 
groot wordt; ook samenvoegen van 
verschillende units is mogelijk. In der¬ 
gelijke gevallen zal de programmatuur 
aangepast worden. 


De software 

De verschillende schakelfunkties kun¬ 
nen gemakkelijk ingevoerd worden; 
ook de bij elke funktie behorende 
tekst, die op het scherm moet ver¬ 
schijnen. De gebruiker kan deze zelf 
wijzigen. Overigens is de toegang tot 
het programma wel via een code¬ 
woord beveiligd, zodat de klant of een 
andere onbevoegde niet in het pro¬ 
gramma kan gaan pionieren. 

Via een vraag- en antwoordprocedure 
geeft de gebruiker aan wélke funkties 
en welke schermteksten (bv. menu’s) 


geprogrammeerd worden. In eerste 
instantie zullen dat de aangesloten 
komponenten zijn, waaruit gekozen 
zal worden, dan de volgorde waarin 
ze te horen moeten zijn, automatisch 
overschakelen met tijdsduur per kom- 
binatie of handmatig overschakelen, 
invoer van ongewenste komponenten 
(die dan overgeslagen zullen wor¬ 
den), namen, prijzen en gegevens van 
de afzonderlijke komponenten of 
kombinaties en eventuele andere ver¬ 
meldenswaardige zaken. Uiteraard 
kunnen alle ingevoerde gegevens op 
diskette worden opgeslagen. 

Kortom allemaal aan de praktijk ont¬ 
leende toepassingen. 


Hardware 

De kasten zijn duidelijk voor profes¬ 
sionele toepassingen ontworpen. De 
behuizing is degelijk, de connectoren 
zijn ‘gold plated’ en - dit is wel het be¬ 
langrijkste - de relais zijn degelijk uit¬ 
gevoerd met goudkontakten. Pure Hi- 
Fi-fanaten kunnen namelijk subtiele 
klankveranderingen waarnemen, die 
veroorzaakt worden door (mechani¬ 


sche) schakelaars in de signaalweg. 
Dit is vaak ook een kwestie van over¬ 
tuiging bij de betreffende audiofielen; 
die door de solide uitvoering van de 
schakelkasten wel niet aan het wan¬ 
kelen gebracht zal worden. Wij heb¬ 
ben geen hoorbare klankaantasting 
kunnen waarnemen. Opvallend was 
het ontbreken van schakelklikken en 
de naadloze overgangen, een bewijs 
van vakkundige uitvoering. De com¬ 
puter wordt met een vlakbandkabel 
aan de Robots gekoppeld. Bij de luid- 
sprekeraansluitingen kunnen de dikke 
speciale speakerkabels worden toe¬ 
gepast, zodat men niet beperkt is tot 
het schemerlampsnoer. Het beeld¬ 
scherm moet natuurlijk op een plaats 
opgesteld worden waar de klant er 
een goed zicht op heeft. Zonodig kan 
een beeldsignaal-versterker tussen- 
geschakeld worden. 

De Robot 101 en 202 kosten ieder 
ƒ 1.970,-. Het programma gaat 
ƒ 640,- kosten, de flatcable (10 m) 
ƒ 125,- en het losse toetsenbord (al¬ 
leen nodig bij gebruik zonder compu¬ 
ter) ƒ 100,-. Dit zijn prijzen ex. BTW. 
Inlichtingen: tel. 085 - 432446 


Nieuws uit de Demowereld 

N aast de gebruikelijke demo’s die uit hobby-overwegingen worden gepro¬ 
duceerd staan de computerkrakers ook garant voor een aantal gebrul- HqoI 

kersprogramma’s. Vaak worden deze programma’s gemaakt ter ondersteu- Occl 

ning van het vele programmeerwerk. 


Zo bestaan er demo-editors die qua 
gebruikersvriendelijkheid niet onder¬ 
doen voor de commerciële software¬ 
pakket ten. Met deze editors kunnen 
complete demo’s worden gemaakt 
zonder dat men iets af hoeft te weten 
van programmeren. 


Crunchers 

Een ander veelgebruikt programma is 
de zogenaamde ’cruncher’. Deze 
’crunchers’ verkleinen programma’s 
zodat ze minder ruimte innemen op 
diskette of cassette. Het principe van 
deze ’crunchers’ lijkt op het vacuum 
trekken van een plastic zakje. De 
’cruncher’ verwijdert alle nullen uit het 
programma en zet de overgebleven 
getallen zo dicht mogelijk bijelkaar. 
De bekendste ’crunchers’ zijn: the Ti- 
mecruncher van The Mercenary 
Crackerende 1001 Cardcruncherdie 
zelfs op eprom(l) geleverd wordt. 

Verder wordt de commerciële softwa¬ 
re ook aangepast door krakers en de- 


momakers. Zo is er door the New Ge- 
neration Crew een ’super-versie’ ge¬ 
maakt van het pakket Super-Script. 
Een groep die ook een programma 
aanpaste is the Dutch Usa-team. Zij 
veranderden het programma ’Sound 
monitor’ in een ’Rockmonitoi’. De 
’sound-monitor’ waarmee eerst alleen 
3-stemmige muziek gemaakt kon wor¬ 
den kreeg een vierde stem en wel in 
de vorm van gedigitaliseerde drumge- 
luiden. Als de gebruiker de beschik¬ 
king heeft over een digitizer kunnen 
zelfs eigengemaakte geluiden in de 
muziek verwerkt worden. 


Dansende sprites 

Een groep die vooral gebruik maakt 
van ’rock-monitor’ is The Fashion 
Crew. Van hun hand kwam de be¬ 
kende demo 'Mighty Sprites’. Hierin 
laten zij op zelfgemaakte muziek een 
aantal sprites op het beeldscherm 
’dansen’. De bewe gingen van deze 
sprites kunnen door de gebruiker zelf 
veranderd worden door het indrukken 


van een aantal toet sen. Het aantal 
mogelijke bewegingen betreft hier 
255 X 255 = 65535 (I) 

Ook een prachtige serie van demo’s 
hebben The Judges gemaakt. Zij zijn 
de bedenkers van een zeer opmerke¬ 
lijke routine, die zij Flexible Line Dis- 
tance genoemd hebben. Hiermee 
kunnen wonderlijke effecten bereikt 
worden, door bijvoorbeeld delen van 
een high-resolution tekening onafhan¬ 
kelijk van elkaar te laten schuiven. 

Maar ondanks al deze nieuwe rou¬ 
tines die in 1987 zijn gemaakt is dui¬ 
delijk merkbaar dat de Amiga de C64 
gaat vervangen. Deze overgang zal 
natuurlijk nog wel wat tijd vergen dus 
hoop ik jullie in 1988 nog veel nieuws 
uit de fascinerende wereld der demo’s 
te brengen. 


Darius Heydarpour 
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Regelmatig sturen lezers van Commodore Info ons vragen over allerlei computer- 
onderwerpen. Jan Bodzinga inventariseert en beantwoort deze vragen. 

Vragen van gebruikers 


Printerbersturing 

De heer L vandenbosch in Diepen¬ 
beek vraagt naar de mogetijkheden 
om de kop van de printer via softwa¬ 
re te kunnen besturen, Hij heeft zetf 
het één en ander zonder succes ge¬ 
probeerd. 


De oplossing van dit probleem kun je 
al vinden in ieder Commodore Basic 
boek, maar de ervaring leert, dat het 
betreffende commando meestal wordt 
genegeerd. De opdracht in kwestie is 
de SPCO-functie. 

We kennen allemaal inmiddels wel de 
manier om tekst op het scherm te zet¬ 
ten, ook met hulp van de Basic-functie 
TABO. Welnu, SPC() is bijna identiek 
aan TAB(), met dit verschil, dat de 
parameter van SPC() gebruikt wordt 
om te tellen vanaf de huidige positie 
van printkop, cursor of lees/schrijfkop, 
terwijl TAB() als functie telt vanaf de 
meest linkse positie op het scherm. 

Als voorbeeld de volgende listing: 

1 0 REM verschil SPC en TAB 
functie 

20 FOR I = 1 TO 20 
30 PRINT TAB(l);"Commodore"; 
40 NEXTI 
50 PRINT:PRINT: 

60 FOR I = 1 TO 20 

70 PRINT SPC(l);"COMMODORE" 

80 NEXTI 

De functie SPC() wijkt duidelijk af van 
de TAB() en wordt, wegens onbe¬ 
kendheid, daarom ook tamelijk weinig 
toegepast. In feite is dat jammer, want 
TAB() is alleen te gebruiken voor 
schermoutput. terwijl SPC() ook kan 
worden aangewend voor andere de- 
vices, niet alleen printers, maar ook 
modems, taperecorders en diskdri¬ 
ves. 


Voor de volledigheid nog even wat 
meer over SPC(). De parameter die 
aan deze functie kan worden mee¬ 
gegeven moet liggen tussen 0 en 255. 
Diskf iles kunnen slecht tot 254 gebrui¬ 
ken, omdat de offset in één diskblock 
al twee bytes nodig heeft voor interne 
pointeropslag. 

Programma algoritmes 

Het gebeurt nogal eens, dat we op de 
redactie vragen krijgen, die erop neer 
komen dat we met man en macht aan 
het programmeren moeten slaan, om 
één van de lezers uit z’n software-pro- 
blemen te helpen. Zo ligt hier een 
vraag op m’n bureau om maar even¬ 
tjes een complete Hi-Res softscroll 
routine voor de C-128 te gaan maken 
en te publiceren. Natuurlijk zouden we 
dit allemaal graag willen doen. maar 
we hebben er helaas de tijd niet voor 
en ook deze rubriek is niet in eerste in¬ 
stantie opgezet om voor iedere ge¬ 
bruiker de moeilijke klussen te gaan 
zitten programmeren. Aan de andere 
kant willen we iedereen, zover moge¬ 
lijk graag helpen. Daarom hierbij een 
interessant verzoek, waar we in de 
loop de jaren gelijkluidende vragen 
over hebben gekregen: 


Hoe kun je. in Basic, een (recur¬ 
sieve) routine maken, waardoor van 
een string alle mogetijke letterconv 
binaties worden uitgeprint. Dus van 
de etring "ABCD” moeten er op 
het scherm, of printer, alle mogelijke 
sfring-combinafies worden geprint. 
Dus ABCD, ABDC, AGDB, ACBD, 
ADBC, ADCB, BCDA, BCAD, en zo 
verder. 


Geloof me, hoewel het uiteindelijke 
programma niet erg lang zal zijn, zul je 
er toch de nodige moeite mee hebben 
om een dergelijke opgave tot een 
goed eind te brengen. We vragen 


hierbij iedereen die denkt een oplos¬ 
sing te hebben, z’n listing naar de re¬ 
dactie te sturen, dan zullen we hem 
publiceren. Het programma moet na¬ 
tuurlijk strings kunnen verwerken van 
iedere lengte en inhoud. Recursief 
betekent, dat een routine vanuit de¬ 
zelfde routine weer opnieuw wordt 
aangeroepen. 

Status-bits 


Het fenomeen status ofwel de varia¬ 
bele ST in Basic zorgt vaak voor pro¬ 
blemen 7o schnjft Wim Bos uit Am¬ 
sterdam, dat hij graag iets moor wil 
weten over ST, maar eigenlijk nor 
gens de volledige informatie over 


Beste Wim, de STatus-variabele is in 
feite een integer-functie in Basic, die 
wordt gebruikt om bij het werken met 
alle 1/0 (input/output) aan de compu¬ 
ter door te geven, hoe het is gesteld 
met het bepaalde device (printer, cas- 
settedeck of drive) waarop een open 
file aanwezig is. Aan de hand van de 
waarde van ST kan de computer be¬ 
paalde acties nemen die door de ge¬ 
bruiker kunnen worden geprogram¬ 
meerd. 

De STatus bestaat uit één BYTE, dus 
8 bits, waarvan ieder bit zowel aan als 
uit kan staan. Dat betekent dus, dat 
we infeite slechts 8 verschillende Sta- 
tus-mogelijkheden hebben, of in heel 
bijzondere gevallen een combinatie 
van diverse bits, maar dit komt in de 
praktijk nooit voor. De waarde van de 
status-bit is altijd 0 (NUL) als er geen 
bijzonderheden zijn opgetreden tij¬ 
dens de 1/0 van het betreffende file. 
Ook voor de output naar printers pra¬ 
ten we over 'file transfer’. Zodra de 
waarde van ST anders is dan NUL, 
betekent dit dat er iets aan de hand is. 
de printer kan niet aan staan of de disk 
is tijdens het lezen bij het EOF (end of 
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file) aangekomen. Door de status te 
testen, op een waarde van 0 of on¬ 
gelijk 0 kunnen we daardoor snel be¬ 
kijken of alles in orde is. We zullen 
daar een voorbeeld van geven, door 
file "TEST" van de disk te lezen: 

10 REM LEZEN VAN DISK 
100 OPEN 2,8,2,"TEST,SEQ,READ’* 
110 GOSUB1000 :REMTEST 
STATUS 
120 GET#2,A$ 

130 GOSUB1000 
140 PRINT A$; 

150 GOTO 120 

999 ' 

1000 REM STATUS TEST 
1010 IF ST=0 THEN RETURN 
1020 PRINT "Er Is iets fout" 

1030 PRINT "STATUS = ";ST 
1040 CLOSE 2 

1050 END 

Tijdens het lezen van "TEST" zal alles 
wel goed gaan, maar probeer de disk 
maar eens te verwijderen, of zorg dat 
er geen bestand "TEST" op de disk 
aanwezig is. De ST zal dit onmiddelijk 
signaleren. Ook het EOF teken wordt 
door de ST-vlag gevangen, vandaar 
dat aan het einde van "TEST" ook de 
foutmelding wordt gegeven met 
STATUS = 64. 

Enkele veel voorkomende ST waar¬ 
den zijn: 

-128 Device not present 
64 END of FILE 

1 Time out schrijven 

2 Idem lezen 

16 Mismatch of leesfout 
32 Checksum fout (voor tape) 

Het is leuk om aan ieder eigen pro¬ 
gramma een routine te koppelen, die 
voor iedere statusfout onmiddelijk te¬ 
rugkomt met één van bovenstaande 
meldingen. 

Koppelen van 
Basic-listings 


Er zijn, zoals bij alle problemen, 
diverse oplossingen voor dit 
fenomeen. Hoewel ik persoonlijk van 
mening ben, dat het werken met 


tekstbestanden bij voorkeur niet op 
deze wijze moet worden aangepakt, 
geef ik hierbij wel een manier om ver¬ 
schillende bestanden te kunnen MER- 
GEN, omdat deze routine ook gebruikt 
kan worden voor ’echte’ Basic-pro- 
gramma’s. 

De meeste MERGE-routines moeten 
met hulp van een klein machinetaal- 
programma in het computergeheugen 
worden gezet, waarna er pas mee kan 
worden gewerkt. 

De ’Commodore-Into’ oplossing is 
echter veel simpeler, en berust op het 
wisselen van de start- en eind-poin- 
ters van de twee Basic-programma's. 

We zullen het voorbeeld vergezellen 
van een beetje uitleg over het reilen 
en zeilen binnen in de Commodore 
128. Als er een programma wordt in¬ 
geladen in een 'schone’ computer, 
dan staat zowel de pointer van begin 
als eind programma naar RAM adres 
$0801. Zodra het programma is in¬ 
gelezen, staat de eindpointer op het 
adres waar de laatste byte van de Ba- 
sic-listing in het geheugen te vinden 
is. Als we nu, om het koppelen van 
twee programma's tot stand te bren¬ 
gen, de computer wijsmaken, dat het 
startadres niet $801 moet zijn, maar 
het eind-adres van de vorige listing in 
RAM, dan zal de commodore 128 zich 
daaraan houden, en het tweede pro¬ 
gramma netjes achter de eerste in 
RAM inlezen. 

Vervolgens zetten we de start-pointer 
weer terug naar $801, zodat er nu van 
twee listings één programma is 
gemaakt, wat daarna in z’n geheel 
weer kan worden weggeschreven. Nu 
de manier waarop we dit tot stand 
brengen. 

Eerst moet het eerste programma op 
de normale manier worden geladen. 
Dus bijvoorbeeld : 

LOAD "TEST1",8,1 

Daarna typen we in direct-mode de 
volgende regel op het toetsenbord: 

M = PEEK(47): N= PEEK(48): 

POKE 45,M : POKE 46, N 

Nu laden we het tweede programma, 
LOAD "TEST2",8,1 , en geven daarna 
de opdracht om het startadres van het 
complete programma weer terug te 
zetten: 

POKE 45.1: POKE 46.8 

Bij de opdracht LIST, zxal nu blijken of 
het koppelen geslaagd is. Zorg wel, 
dat de twee programma’s regelnum¬ 
mers hebben, die overeenstemmen 
met hun positie in RAM. Desnoods 
moet voor ieder programma afzonder¬ 


lijk eerst een RENUMBER-utility wor¬ 
den gebruikt, zodat er geen dubbele 
regelnummers meervoorkomen, want 
daardoor kan het gebeuren, dat de 
computer fouten gaat maken. 
Bovenstaande opdrachten zijn voor 
de C-128 bestemd. Wil men dezelfde 
bewerkingen uitvoeren op een stan¬ 
daard C-64, dan moeten de volgende 
twee regels worden ingetoetst: 

6M = PEEK(45): N= PEEK(46) : 
POKE 43,M : POKE 44, N 

en : POKE 43,1: POKE 44,8 

kortom, een snelle en eenvoudige 
manier om meerdere kleine Basic-list- 
ing, of afzonderlijke subroutines te 
koppelen tot één groot programma. 



Jan Bodzinga. 


De familie Koffeman in Urk bezit 
sinds enkele weken een 128 Er 
wordt op een geheel eigen wijzie 
tekst mee verwelkt, waarbij de ge¬ 
schreven data in feite als program- 
ma-bestand wordt behandeld, zodat 
op de 128 de ingebouwde help¬ 
functies zoals FIND kunnen worden 
gebruikt Het probleem is nu, om ver- 
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Het was weer moeilijk kiezen uit de vele ingezonden programma’s. Er zaten dit keer 
veel mooie bij, die je dan ook allemaal hier aantreft. We proberen de programma’s nu 
zodanig af te drukken, dat ze exact hetzelfde op papier staan, als op het scherm van 
je computer. 

Blijf ze overigens insturen, die vondsten en ontdekkingen van jullie, naar: Postbus 112, 
1260 AC, Blaricum, ten name van ondergetekende. 


Basic Micro’s 



W e zullen gelijk maar los branden met een programma dat zeker een tien met een griffel 
verdient. Het is afkomstig van Sam Ratajczak uit Houthalen (België). 


Het tekent een prachtige drie-dimensionale grafiek op 
een C- 64 met Simons Basic. Het programma is echter ge¬ 
makkelijk geschikt te maken voor allerlei andere compu¬ 
ters door de grafische opdrachten en eventueel wat ge¬ 
tallen aan te passen. Door verandering van de formule 
voor Z=... in regel 30 en 40 kun je andere figuren te zien 
krijgen. 

10 HIRESl, 0 : F0RX=-)XT07i:STEP . 2 : Y=-K: GOSUB3 
0 : FORY=-2.94T03XSTEP . 2 : GOSUB40 : NEXTY, X 
20 F0RY=-7 cT 071STEP . 2 : X=-JT: GOSUB30 : FORX=-2 
. 94T07rSTEP . 2 : GOSUB40 : NEXTX, Y : WAITO, 0 
30 Z=COS(4*SQR(X*X+Y*Y))/6:AA=139+28*(Y- 
X/2):BB=95-54*(Z-X/2)iRETURN 
40 Z=COS (4*SQR(X*X+Y*Y) ) /6 : A=139-l-28* (Y-X 
/2):B=95-54*(Z-X/2) 

50 LINEAA,BB,A,B,1:AA=A:BB=B:RETURN 


Versleten toets 

Een handige utility voor mensen met een versleten C-64 
levert T. Bressers uit Bergeyk. Je kunt namelijk een niet 
(goed) meer werkende toets "vervangen" door een 
andere. De gebruiksaanwijzing is als volgt: je typt de vol¬ 
gende Micro in, en je RUNt hem. Laad nu een ander pro¬ 
gramma of typ het in, waarbij je op de "POND"- toets 
drukt, in plaats van op de versleten toets. Als je dan 
POKE 49168,ASCIIcode:SYS49152 tikt, en dan LIST, 
dan zal het "POND"-teken vervangen worden door het 
karakter met de betreffende ASCII-code. Bedenk wel dat 
het zo nog niet in het geheugen zit, dus daarna ga je de 
betreffende regels opnieuw met RETURN in het geheu¬ 
gen stoppen. We hebben het programma aangepast voor 
de Power Cartridge, dus dat is ook in orde. Pas op dat je 
het programma niet RUNt nadat je de SYS al hebt in¬ 
getikt, want dan zorgen de eerste twee POKE-opdrachten 
in regel 10 ervoor, dat elke volgende LIST-opdracht 
meteen blokkeert. De NEW zit er dan ook in om dat te 
voorkomen. 


10 POKE49178,PEEK(774):POKE49179,PEEK(77 
5) :F0RI=49152T049177 :READQ;A=A-t-Q 
20 POKEI, Q : NEXT : IFAO2550THENPRINT"FOUT 
IN DATA!":END:DATA169,11,141,6,3,169 
30 NEW:DATA192,141,7,3, 96, 201,92,208, 8, 1 
69,45,32,71,171,76,0,167,41,255,76 


Cirkelstraal 

Voor de C-128 is de volgende Micro. Hij is ingestuurd 
door Pierre Desmet uit Wervik (België). Dit programma 
tekent vanuit een punt een aantal lijnen van willekeurige 
lengte in de richting van een denkbeeldige cirkel. 

1o PRINTCHR$(147):COLOR4,1:COLORO,1:GRAP 
HICl,1;COLORl,5:FORA=0TO2*PSTEP.03 
20 X=INT (RND (0) *90-1-10) :DRAW1,160,100T016 
0+X*COS(A),100+X*SIN(A):NEXT 

En daar kun je ook nog het volgende aan toevoegen, voor 
een leuk effect op het eind: 

30 SLEEP5:GRAPHICS, 0 


’Screen Effect’ 

Lucien Hiens (12 jaar) uit Wassenaar stuurde een Micro 
in, en hij zorgt daarmee voor een kleurig ’Screen Effect’ 
op de C-64: 

10 F0RI=4 9152T049194 :READA:POKEI, A:X=X-I-A 
:NEXT:IFX=4633THENSYS49152:DATA140,32 
20 PRINT"FOUT!":DATA208,140, 33, 208,162,0 
,232,224,110,240,3,76,8,192,192,2,240 
30 DATA8,192,1,240,9,192,6,240,10,160,1, 
76,0,192,160,6,76,0,192,160,2,76,0,192 
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Spiraal 

Alweer uit België is de volgende Micro. De auteur is 
Ronny Vandevenne uit Berchem (Antwerpen). Het is de 
bedoeling dat deze Micro draait op de C-64 met Simons 
Basic, maar het kan weer gemakkelijk aangepast worden 
voor andere computers. 

Het programma tekent een soort melkwegstelsel of 
spiraalnevel op het scherm. Door de stapgrootte in regel 
10 te variëren, ontstaat een grote verscheidenheid aan 
figuren. 

10 R=5:COLOÜRO,0:HIRESl,0:FORA=lTO560STE 
P.5:X=R*COS(A)+160:Y=R*SIN(A)+100 
20 PLOTX,Y,1:R=R+.5:NEXT:TEXT40,4, "MILKY 
WAY",1,4,30:POKE198,0:WAIT198, 1 


Lichtkrant 

Obbe Vermey uit Cappelle aan de IJssel stuurde weer 
enkele programma’s in voor de Commodore 64. De nu 
volgende is eigenlijk meer een Basic MACRO dan een 
Micro, maar toch plaatsen we hem. Het programma ver¬ 
zorgt een mini-lichtkrant in een sprite, met drie karakters 
naast elkaar, en bijna drie boven elkaar, waarbij de letters 
nu eens naar boven wegschuiven. 

Helaas werkt dit programma niet goed met de Power 
Cartridge, dus als je die hebt, moetje eerst QUIT intikken. 
Voor dit probleem is overigens wel een oplossing te vin¬ 
den, maar dan moet bijna het hele programma in 
machinetaal omgezet worden. 

10 FORV=0TO4 6:READA:POKE49152+V,A;Q=Q+A: 
NEXT:K(1)=15:K(2)=22:K(3)=5 
20 IFQ7111THENPRINT"FOUT IN DATA":END 
30 V=53248:POKEV+21,l:POKEV,148:POKEV+l, 

60:POKEV+32,0:POKEV+33,0:POKEV+39,1 
40 POKEV+29,1:POKE2040,128:POKEV+21,1;FO 
RT=8192T08257:POKET,0;NEXT 
50 FORT=0TO7:SYS49152;POKE808,225:POKE56 
334,PEEK(56334)AND254 

60 P0KE1,PEEK(1)AND251:F0RG=1T03:POKE825 
4+G,PEEK(K(G)*8+V+T):NEXT 
70 POKEl,PEEK(1)OR4:POKE56334,PEEK(56334 
)ORl:POKE808,237:NEXT 

80 READK(l),K(2),K(3):ON-(K(l)-l)GOTO50 
:RESTORE:FORG=0TO4 6:READA:NEXT:GOT08 0 
90 DATA169,32,133,254,169,63,133,253,160 
,0,177,253,133,2,198,253,198,253,198 
100 DATA253,177,253,170,165,2,145,253,13 
4,2,166,253,16,237,232,240,10,24,165 
110 DATA253,105,67,133,253,76,8,192,96 
120 DATA32,32,32,4,9,20,9,19,32,8,5,20,4 
,1,14,32,32,32,32,32,32,32,32,32,-1,, 

In regel 120 en eventueel verder moet je de tekst in 
DATA-regels zetten, met de schermcodes zoals die te 
vinden zijn in appendix B van de Reference Guide en in 
appendix E van de Engelstalige handleiding. 

Vermoeiend 

Van dezelfde auteur komt ook nog een snelheids-spel- 
letje; geef een flinke roffel op de spatiebalk, en deze Micro 


vertelt je hoe vaak je de schakelaar hebt ingedrukt. Het 
record staat op 881, wie verbetert dit? 

10 PRINTCHR$(147):POKE650,64:A=0;FORT=0T 
0450:GETA$;IFA$=CHR$(32)THENA=A+10 
20 A=ABS(A-1):PRINTACHR$(145);NEXT:POKE6 
50, 0 


Grotere letters op het scherm 

Als klap op de vuurpijl volgt hier nu nog een MACRO die 
- net als de mini-lichtkrant overigens - zorgt voor dubbel- 
hoge letters op het scherm, maar ditmaal zonder sprites. 
Het is afkomstig van Ron en Kim Brobbel uit Vlaardingen. 
De grotere karakters worden verkregen door de helft van 
de bestaande karakterset dubbel te kopiëren naar het ge¬ 
heugen, en daarna twee karakters te gebruiken voor elk 
nieuw teken, namelijk het karakter zelf, en het inverse 
karakter (dat dan niet invers is, maar de onderste helft). 
Klinkt ingewikkeld, maar probeer het maar eens, een 
demo is ingebouwd. Je kunt ook de laatste A en B in regel 
30 veranderen in nullen, dan krijg je letters die uit strepen 
zijn opgebouwd. 

Helaas geldt ook hier dat je bij een Power Cartridge eerst 
QUIT moet intikken, tenzij je de eerste regels omzet in 
machinetaal. 

10 PRINTCHR$(147):V=53248:POKEV+32,0:POK 
EV+33,0:POKEV+24,31:POKE56334,0 
20 POKEl,51:FORT=0TO1023STEP8;FORG=0TO7S 
TEP2;A=PEEK(V+T+G/2):POKE14336+T+G,A 
30 B=PEEK(V+4+T+G/2):POKE15360+T+G,B:POK 
E14337+T+G,A:POKE15361+T+G,B:NEXTG,T 
40 POKEl,55:POKE56334,1:FORK=0TO5:READA$ 

,V:L=LEN(A$):IFLAND1THENA$=A$+" ":L=L+1 
50 FORA=lTOL/2:B$=LEFT$(A$,A)+RIGHT$(A$, 

A):H=20-LEN(B$)/2:POKE214,V:SYS58640 
60 PRINTTAB(H)CHR$(158)B$;PRINTTAB(H)CHR 
$(129)CHR$(18)B$:FORR=0TO30:NEXTR, A, K 
70 S=54272;FORT=0TO23:POKES+T,0:NEXT 
80 POKES+24,15:POKES+5,10:POKES+6,254:PO 
KES,21:POKES+2,20;POKES+3,1:POKES+4,65 
90 POKES+1,1+10*RND(1):FORT=0TO100:NEXT: 
POKES+1,10:GOTO90 

100 DATA*** DIT IS EEN PROGRAMMA INTRO * 
**,3,GEMAAKT VOOR COMMODORE INFO 1987,5 
110 DATABELANGRIJK,9,DE STRING MAG NIET 
LANGER ZIJN,11 

120 DATADAN 38 KARAKTERS,13,** RAK SOFTW 
ARE 1987 **,20 


Peter Broekhuizen 
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De negende aflevering van onze cursus 65XX machinetaal wordt voor het overgrote 
deel in beslag genomen door de allang beloofde listing van een eigen, echte mini-as- 
sembler. Dit programma zal in de komende afleveringen zijn nut gaan bewijzen, omdat 
de toekomstige programma-voorbeelden in machinetaal met hulp van mnemonics zul¬ 
len worden gegeven. Daarom nu een aflevering specifiek over de assembler. 

Cursus Machinetaal 

door Tjipke van der Land 

Deel 9: De Mini-Assembler 


I n aansluiting op ai eerder gedane beioftes zuiien we deze keer de iisting 
van ons eigen assembier/disassembler programma piaatsen. in het ver- 
voig zuilen we dit programma bijna dagelijks nodig hebben. We kunnen ons 
voorsteiien, dat veien een zucht van veriichting siaken, bij het zien van deze 
listing, want we hebben er aiiemaal lang op moeten wachten, maar hier is hij 
dan. 


De gepubliceerde listing werkt in prin¬ 
cipe net als alle andere (mini) assem- 
blers die bestemd zijn voor de Com¬ 
modore 65XX processor. Beschik je 
inmiddels reeds over een eigen as¬ 
sembler, dan adviseer ik, om de op¬ 
drachten van deze kleine, maar veel¬ 
omvattende assembler eens te bekij¬ 
ken, en als de mogelijkheden min of 
meer overeen komen, kun je bij het 
volgen van de lessen je eigen assem¬ 
bler gebruiken, zodat je het intypen 
van dit programma besparen kunt. 
Overigens zal deze assembler ook 
verschijnen als Infolist-diskette, die 
via de gangbare kanalene in je bezit 
kan komen. 


Zure appel 

Vanwege het gebrek aan ruimte kun¬ 
nen we in deze aflevering niet de vol¬ 
ledige beschrijving van alle mogelijk¬ 
heden plaatsen, maar buiten dat om 
heb je uren van intoetswerk voor de 
boeg, en zul je daarna wellicht niet 
meer de lust hebben om eens flink in 
machinetaal te gaan programmeren. 
We geven natuurlijk wel wat voorbeel¬ 
den waarmee de assembler aan het 
werk kan worden gezet. 

Hieronder staat de complete listing 
van de assembler, in de vorm van een 
Basic programma met nogal wat 
DATA-regels, die zo onder de hand 
wel bekend zijn. 

Even door de zure appel heenbijten 
en het hele programma voor later net¬ 
jes wegschijven op tape of disk, waar¬ 
door je in het vervolg altijd een as¬ 


sembler voor je Commodore bij de 
hand hebt. 

Het grootste probleem waar je mee te 
maken zult krijgen, is dat je verkeerde 
data intypt. Dit wordt tijdens het run¬ 
nen wel gekontroleerd door een zgn. 
checksum algoritme, die je verteld of 
je data wel of niet goed ingevoerd 
hebt. Is het niet goed, dan is het jam¬ 
mer, want dan moet je de hele listing 
gaan controleren. Krijg je echter de 
melding 'Data goed ingevoerd’, dan 
kun je met de assembler aan de slag. 



Werking 

Om je even iets op gang te helpen met 
het werken met de assembler,gebrui- 
ken we een oud voorbeeld om even te 
kijken wat je allemaal kunt doen met 
dit programma. We gebruiken daar¬ 
voor het onderstaande Basicprogram- 
maatje om een naam in het RAM-ge- 
heugen te zetten. 


Naam: JAN K LAASSEN 
ASCII: 4A 41 4E 20 4B 4C 41 41 53 
53 45 4E 

Decimaal: 74 65 78 32 75 76 65 65 
83 83 69 78 

10 REM poke programma voor 
machinetaal 

15 REM zie MT aflevering 8 
20 S = 8192 : REM START ADRES 
NAAM 

30 READ A 

40 IF A = -1 THEN END 

50 POKE S,A 

60 S = S + 1 

70 GOTO 30 

100 DATA 

74,65,78,32,75,76,65,65,83,83,6 

9,78,-1 

Als je dit programma één keer gerund 
hebt staat de naam ’JAN KLAASSEN’ 
al in het RAM-geheugen. 

Voor het invoeren van het onder¬ 
staande programma, moet je eerst de 
assembler hebben geladen en ge¬ 
rund, waarna je alleen maar hoeft in te 
typen (na het starten van de assem¬ 
bler): 

. A1000 LDA#$17 

denk daarbij om de eerste PUNT (.) 

Je zult zien dat de assembler automa¬ 
tisch terug komt met het volgende a- 
dres ($1002) waardoor je alleen maar 
de instructies hoeft in te toetsen zoals 
ze hierna staan afgedrukt: 
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V oor beeldprogramma: 

MNEMONIC 

HEX 

LDA #$17 

A9 17 

STA $D018 

8D 18 DO 

LDA $2000 

AD 00 20 

STA $0578 

8D 78 05 

LDA $2001 

AD 01 20 

STA $0579 

8D 79 05 

LDA $2002 

AD 02 20 

STA $057A 

8D 7A 05 

LDA $2003 

AD 03 20 

STA $057B 

8D 7B 05 

LDA $2004 

AD 04 20 

STA $057C 

8D 7C 05 

LDA $2005 

AD 05 20 

STA $057D 

8D 7D 05 

LDA $2006 

AD 06 20 

STA $057E 

8D 7E 05 

LDA $2007 

AD 07 20 

STA $057F 

8D 7F 05 

LDA $2008 

AD 08 20 

STA $0580 

8D 80 05 

LDA $2009 

AD 09 20 

STA $0581 

8D 81 05 

LDA $200A 

AD OA 20 

STA $0582 

8D 82 05 

LDA $200B 

AD OB 20 

STA $0583 

8D 83 05 

NOP 

EA 

BNE #$FC 

DO FC 


COMMENTAAR 

;Getal laden ASCII laag 
;Paranieter plaatsen 
;Ophalen letter 1 
;Ptaats letter in videogeh. 

; Ophalen letter 2 
;Plaats letter in videogeh. 
;Enz. 

;Ophalen van spatie 
;Plaats spatie in videogeh. 
,Enz. 


-• O ' 



;LOOP VIA NOP (NO OPERATION) 


Na het invoeren van dit programma 
kun je het resultaat nog eens overzien 
door in te tikken:. d 1000 . 

Hier zie je dan het gedisassembleer- 
de programma wat je zelf hebt inge¬ 
voerd. Om het te runnen moet je in¬ 
voeren . g 1000. 

Nu zie je de naam op het scherm ver¬ 
schijnen, net als de vorige keer in 
Basic, alleen heb je er meer moeite 
voor moeten doen. Je kunt het pro¬ 
gramma afbreken door te drukken op 
de run/stop restore. Wat problemen 
kan geven is de instructie BNE #$FC. 
Deze kun je vervangen door JMP $ 
1000, en dan zal het allemaal zeker 
werken. 

Met de assembler kunnen we ook pro¬ 
gramma’s opslaan en weer laden, 
printen enz. Al dit soort zaken zullen 
we de volgende keren wat uitvoeriger 
behandelen, om optimaal met de as¬ 
sembler te kunnen werken. Waar het 
nu om gaat is dat je de assembler 
werkend krijgt, zodat we er de volgen¬ 
de keer probleemloos mee aan de 
slag kunnen. Vind je het invoeren te 
veel werk, dan kan je, zoals ge- 
zegd,de assembler bij ons bestellen 
via Infolist, Huizen. Als je echter zelf 
aan de slag gaat - een nuttige typeoe- 
fening overigens- dan wens ik je erg 
veel sterkte en succes bij het opspo¬ 
ren van de fouten. 


Assembler listing Commodore 64 

10 REM ******************************* 

20 REM * COMMODORE INFO 
30 REM * MINI ASSEMBLER 
40 REM * 

50 REM * PROGRAMMA INVOEREN, EN TYP * 

60 REM * DAARNA RUN (RETURN). 

70 REM * TYP NA HET RUNNEN SYS 49152 * 

80 REM * 

90 REM *(c) 1987 
100 REM ******************************* 

1000 S=49152:T=0 

1010 READ A:IF A=-1 THEN 1030 

1020 POKE S,A:S=S+1:T=T+A:GOTO 1010 

1030 IF T=283010 THEN 1060 

1040 PRINT "FOUTE INVOER VAN DATA" 

1050 PRINT "TUSSEN REGEL 5000 EN 6480":END 
1060 PRINT "DATA IS GOED VERWERKT" 

1070 PRINT "TYPE SYS 49152 VOOR HET STARTEN" 
1080 END 

5000 DATA 76,233,192,255,0,0,255,255,0, 
0,255,255,0,0,255,255,0 
5010 DATA 

0,255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0 

,255 

5020 DATA 

255,0,0,255,255,0,0,255,255,0,0,255,255,0,0,255,2 

55,0 

5030 DATA 

0,255,255,0,0,255,255,0,0,255,255,0,0,255,255,0, 
5040 DATA 


255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0,2 

55 

5050 DATA 

255,0,0,255,255,0,0,255,255,0,0,255,255,0,0,255,2 

55 

5060 DATA 

0,0,255,255,0,0,255,255,0,0,255,255,0,0,255,255,0 

,0 

5070 DATA 

255,255,0,0,255,255,128,0,255,255,0,0,255,255,0,0 

,255 

5080 DATA 

255,0,0,255,255,0,0,255,255,0,0,255,255,0,0,255,2 

55 

5090 DATA 

0,0,255,255,0,0,255,255,0,0,255,255,0,0,255,255,0 

,0 

5100 DATA 

255,255,0,0,255,255,0,0,255,255,0,0,255,255,0,0,2 

55 

5110 DATA 

255,0,0,255,255,0,0,255,255,0,0,255,255,0,0,255,2 

55 

5120 DATA 

0,0,255,255,0,0,255,255,0,0,255,255,0,0,255,255,0 

,0 

5130 DATA 

255,255,0,0,255,255,0,169,160,133,56,173,230,200 
,141 

5140 DATA 

22,3,173,231,200,141,23,3,169,128,32,144,255,0,2 

16 
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5150 DATA 

104.141.62.2.104.141.61.2.104 
,141,60,2,104,141,59,2 

5160 DATA 

104,170,104,168,56,138,233,2, 
141,58,2,152,233,0,141 
5170 DATA 

57,2,186,142,63,2,32,87,198,16 

2.66.169.42.32.87.195 
5180 DATA 

169,82,208,52,230,193,208,6,2 

30,194,208,2,230,38,96 
5190 DATA 

32.207.255.201.13.208.248.104 
,104,169,154,32,210,255 

5200 DATA 

169,0,133,38,162,13,169,46,32 
,87,195,169,159,32,210 
5210 DATA 

255,32,62,193,201,46,240,249, 
201,32,240,245,162,14 
5220 DATA 

221,183,200,208,12,138,10,170 
,189,199,200,72,189,198 
5230 DATA 

200.72.96.202.16.236.76.237.1 
95,165,193,141,58,2,165 

5240 DATA 

194.141.57.2.96.169.8.133.29.1 
60,0,32,84,198,177,193 

5250 DATA 

32,72,195,32,51,193,198,29,20 

8.241.96.32.136.195.144 
5260 DATA 

11,162,0,129,193,193,193,240, 

3.76.237.195.32.51.193 
5270 DATA 

198,29,96,169,59,133,193,169, 
2,133,194,169,5,96,152 
5280 DATA 

72,32,87,198,104,162,46,76,87 
,195,169,154,32,210,255 
5290 DATA 

162,0,189,234,200,32,210,255, 
232,224,22,208,245,160 
5300 DATA 

59.32.194.193.173.57.2.32.72.1 

95.173.58.2.32.72.195 
5310 DATA 

32,183,193,32,141,193,240,92, 

32.62.193.32.121.195.144 
5320 DATA 

51,32,105,195,32,62,193,32,12 

1.195.144.40.32.105.195 
5330 DATA 

169,154,32,210,255,32,225,255 
,240,60,166,38,208,56,165 
5340 DATA 

195.197.193.165.196.229.194.1 

44.46.160.58.32.194.193 
5350 DATA 

32,65,195,32,139,193,240,224, 

76.237.195.32.121.195.144 
5360 DATA 

3,32,128,193,32,183,193,208,7 
,32,121,195,144,235,169 
5370 DATA 

8.133.29.32.62.193.32.161.193 


,208,248,76,71,193,32,207 
5380 DATA 

255,201,13,240,12,201,32,208, 

209.32.121.195.144.3.32 
5390 DATA 

128,193,169,154,32,210,255,17 

4,63,2,154,120,173,57,2 
5400 DATA 

72,173,58,2,72,173,59,2,72,173 
,60,2,174,61,2,172,62,2 
5410 DATA 

64,169,154,32,210,255,174,63, 
2,154,108,2,160,160,1,132 
5420 DATA 

186.132.185.136.132.183.132.1 
44,132,147,169,64,133,187 

5430 DATA 

169.2.133.188.32.207.255.201, 
32,240,249,201,13,240,56 

5435 DATA 

201.34.208.20.32.207.255 
5440 DATA 

201.34.240.16.201.13.240.41.1 
45,187,230,183,200,192,16 

5450 DATA 

208.236.76.237.195.32.207.255 
,201,13,240,22,201,44,208 

5460 DATA 

220,32,136,195,41,15,240,233, 

201.3.240.229.133.186.32 
5470 DATA 

207.255.201.13.96.108.48.3.10 
8,50,3,32,150,194,208,212 

5480 DATA 

169,154,32,210,255,169,0,32,2 

39.194.165.144.41.16.208 
5490 DATA 

196.76.71.193.32.150.194.201, 

44.208.186.32.121.195.32 
5500 DATA 

105.195.32.207.255.201.44.208 
,173,32,121,195,165,193 

5510 DATA 

133.174.165.194.133.175.32.10 
5,195,32,207,255,201,13 

5520 DATA 

208.152.169.154.32.210.255.32 
,242,194,76,71,193,165,194 

5530 DATA 

32,72,195,165,193,72,74,74,74 
,74,32,96,195,170,104,41 
5540 DATA 

15,32,96,195,72,138,32,210,25 
5,104,76,210,255,9,48,201 
5550 DATA 

58,144,2,105,6,96,162,2,181,19 

2,72,181,194,149,192,104 
5560 DATA 

149,194,202,208,243,96,32,136 
,195,144,2,133,194,32,136 
5570 DATA 

195,144,2,133,193,96,169,0,13 

3.42.32.62.193.201.32.208 
5580 DATA 

9,32,62,193,201,32,208,14,24,9 

6.32.175.195.10.10.10.10 
5590 DATA 

133,42,32,62,193,32,175,195,5 


,42,56,96,201,58,144,2 
5600 DATA 

105,8,41,15,96,162,2,44,162,0, 

180,193,208,8,180,194,208,2 
5610 DATA 

230,38,214,194,214,193,96,32, 

62.193.201.32.240.249.96 
5620 DATA 

169,0,141,0,1,32,204,195,32,14 

3.195.32.124.195.144.9.96 
5630 DATA 

32,62,193,32,121,195,176,222, 

174.63.2.154.169.154.32 
5640 DATA 

210,255,169,63,32,210,255,76, 

71,193,32,84,198,202,208 
5650 DATA 

250,96,230,195,208,2,230,196, 
96,162,2,181,192,72,181,39 
5660 DATA 

149,192,104,149,39,202,208,24 
3,96,165,195,164,196,56 
5670 DATA 

233,2,176,14,136,144,11,165,4 
0,164,41,76,51,196,165,195 
5680 DATA 

164,196,56,229,193,133,30,152 
,229,194,168,5,30,96,32 
5690 DATA 

212.195.32.105.195.32.229.195 
,32,12,196,32,229,195,32 

5700 DATA 

47,196,32,105,195,144,21,166, 

38,208,100,32,40,196,144 
5710 DATA 

95,161,193,129,195,32,5,196,3 
2,51,193,208,235,32,40 
5720 DATA 

196.24.165.30.101.195.133.195 
,152,101,196,133,196,32,12 

5730 DATA 

196,166,38,208,61,161,193,129 
,195,32,40,196,176,52,32 
5740 DATA 

184.195.32.187.195.76.125.196 
,32,212,195,32,105,195 

5745 DATA 32,229,195,32,105,195 
5750 DATA 

32.62.193.32.136.195.144.20.1 

33.29.166.38.208.17.32 
5760 DATA 

47,196,144,12,165,29,129,193, 
32,51,193,208,238,76,237 
5770 DATA 

195.76.71.193.32.212.195.32.1 
05,195,32,229,195,32,105 

5780 DATA 

195,32,62,193,162,0,32,62,193 
,201,39,208,20,32,62,193 
5790 DATA 

157.16.2.232.32.207.255.201.1 
3,240,34,224,32,208,241 

5800 DATA 

240,28,142,0,1,32,143,195,144 
,198,157,16,2,232,32,207 
5810 DATA 255,201,13,240,9,32 
,136,195,144,182,224,32,208,2 
36 
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5820 DATA 

134,28,169,154,32,210,255,32, 
87,198,162,0,160,0,177 
5830 DATA 

193.221.16.2.208.12.200.232.2 

28,28,208,243,32,65,195 

5840 DATA 

32.84.198.32.51.193.166.38.20 
8,141,32,47,196,176,221 

5850 DATA 

76.71.193.32.212.195.133.32.1 
65,194,133,33,162,0,134 

5860 DATA 

40,169,147,32,210,255,169,154 
,32,210,255,169,22,133 
5870 DATA 

29,32,106,197,32,202,197,133, 

193.132.194.198.29.208 
5880 DATA 

242,169,145,32,210,255,76,71, 
193,160,44,32,194,193,32 
5890 DATA 

84.198.32.65.195.32.84.198.16 
2,0,161,193,32,217,197 

5900 DATA 

72.32.31.198.104.32.53.198.16 
2,6,224,3,208,18,164,31 

5910 DATA 

240,14,165,42,201,232,177,193 
,176,28,32,194,197,136 
5920 DATA 

208.242.6.42.144.14.189.42.20 
0,32,165,198,189,48,200 

5930 DATA 

240,3,32,165,198,202,208,213, 
96,32,205,197,170,232 
5940 DATA 

208,1,200,152,32,194,197,138, 
134,28,32,72,195,166,28 
5950 DATA 

96.165.31.56.164.194.170.16.1 
,136,101,193,144,1,200,96 

5960 DATA 

168.74.144.11.74.176.23.201.3 
4,240,19,41,7,9,128,74 

5970 DATA 

170,189,217,199,176,4,74,74,7 
4,74,41,15,208,4,160,128 
5980 DATA 

169,0,170,189,29,200,133,42,4 
1,3,133,31,152,41,143 
5990 DATA 

170,152,160,3,224,138,240,11, 
74,144,8,74,74,9,32,136 
6000 DATA 

208.250.200.136.208.242.96.17 

7.193.32.194.197.162.1 
6010 DATA 

32,254,195,196,31,200,144,241 
,162,3,192,4,144,242,96 
6020 DATA 

168,185,55,200,133,40,185,119 
,200,133,41,169,0,160 
6030 DATA 

5,6,41,38,40,42,136,208,248,10 

5.63.32.210.255.202.208 
6040 DATA 

236,169,32,44,169,13,76,210,2 


55.32.212.195.32.105.195 
6050 DATA 

32,229,195,32,105,195,162,0,1 

34.40.169.154.32.210.255 
6060 DATA 

32.87.198.32.114.197.32.202.1 
97,133,193,132,194,32 

6070 DATA 

225.255.240.5.32.47.196.176.2 

33.76.71.193.32.212.195 
6080 DATA 

169,3,133,29,32,62,193,32,161 
,193,208,248,165,32,133 
6090 DATA 

193,165,33,133,194,76,70,197, 

197.40.240.3.32.210.255 
6100 DATA 

96,32,212,195,32,105,195,142, 

17.2.162.3.32.204.195 
6110 DATA 

72.202.208.249.162.3.104.56.2 

33.63.160.5.74.110.17.2 
6120 DATA 

110,16,2,136,208,246,202,208, 
237,162,2,32,207,255,201 
6130 DATA 

13.240.30.201.32.240.245.32.2 
08,199,176,15,32,156,195 

6140 DATA 

164,193,132,194,133,193,169,4 

8.157.16.2.232.157.16.2 
6150 DATA 

232,208,219,134,40,162,0,134, 
38,240,4,230,38,240,117 
6160 DATA 

162,0,134,29,165,38,32,217,19 
7,166,42,134,41,170,188 
6170 DATA 

55,200,189,119,200,32,185,199 
,208,227,162,6,224,3,208 
6180 DATA 

25.164.31.240.21.165.42.201.2 
32,169,48,176,33,32,191 

6190 DATA 

199,208,204,32,193,199,208,19 
9,136,208,235,6,42,144 
6200 DATA 

11.188.48.200.189.42.200.32.1 
85,199,208,181,202,208,209 

6210 DATA 

240,10,32,184,199,208,171,32, 
184,199,208,166,165,40 
6220 DATA 

197,29,208,160,32,105,195,164 
,31,240,40,165,41,201,157 
6230 DATA 

208.26.32.28.196.144.10.152.2 
08,4,165,30,16,10,76,237 

6240 DATA 

195,200,208,250,165,30,16,246 
,164,31,208,3,185,194,0 
6250 DATA 

145,193,136,208,248,165,38,14 
5,193,32,202,197,133,193 
6260 DATA 

132,194,169,154,32,210,255,16 
0,65,32,194,193,32,84,198 
6270 DATA 


32.65.195.32.84.198.169.159.3 
2,210,255,76,176,198,168 

6280 DATA 

32,191,199,208,17,152,240,14, 
134,28,166,29,221,16,2,8 
6290 DATA 

232.134.29.166.28.40.96.201.4 
8,144,3,201,71,96,56,96 

6300 DATA 

64,2,69,3,208,8,64,9,48,34,69,5 
1,208,8,64,9,64,2,69 
6310 DATA 

51,208,8,64,9,64,2,69,179,208, 
8,64,9,0,34,68,51,208 
6320 DATA 

140,68,0,17,34,68,51,208,140,6 

8,154,16,34,68,51,208 
6330 DATA 

8.64.9.16.34.68.51.208.8.64.9.9 
8,19,120,169,0,33,129 

6340 DATA 

130,0,0,89,77,145,146,134,74,1 
33,157,44,41,44,35,40 
6350 DATA 

36,89,0,88,36,36,0,28,138,28,3 
5,93,139,27,161,157,138 
6360 DATA 

29,35,157,139,29,161,0,41,25,1 
74,105,168,25,35,36,83 
6370 DATA 

27,35,36,83,25,161,0,26,91,91, 
165,105,36,36,174,174 
6380 DATA 

168,173,41,0,124,0,21,156,109 
,156,165,105,41,83,132,19 
6390 DATA 

52.17.165.105.35.160.216.98.9 
0,72,38,98,148,136,84,68 

6400 DATA 

200,84,104,68,232,148,0,180,8 
,132,116,180,40,110,116 
6410 DATA 

244,204,74,114,242,164,138,0, 
170,162,162,116,116,116 
6420 DATA 

114,68,104,178,50,178,0,34,0,2 
6,26,38,38,114,114,136 
6430 DATA 

200.196.202.38.72.68.68.162.2 
00,58,59,82,77,71,88,76 

6440 DATA 

83,84,70,72,68,80,44,65,66,194 
,53,194,204,193,247,193 
6450 DATA 

86,194,137,194,244,194,12,195 
,62,196,146,196,192,196 
6460 DATA 

56,197,91,198,138,198,172,198 
,70,193,255,192,237,192 
6470 DATA 

13,32,32,32,80,67,32,32,83,82, 
32,65,67,32,88,82,32,89 
6480 DATA 

82.32.83.80.108.239.255.254.2 

21,222,-1 
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Op het eerste gezicht lijkt het een vreemd idee om de Amiga als een MS-DOS machine 
te emuleren. De kracht van de Motorola 68000 CPU komt dan immers niet tot haar 
recht onder MicroSoft’s disk-besturingssysteem? Voor wie echter toch MS-DOS pro¬ 
grammatuur wil draaien is emulatie een must. Ook kan het gebruik van de Amiga als 
IBM PC enkele voordelen bij multitasking- en netwerktoepassingen bieden. In onder¬ 
staand artikel wordt nader ingegaan op het gebruik van de softwarematige Trans- 
former en de hardware-emulator Sidecar voor de Amiga 500 en 1000 en de PC-kaar- 
ten voor de 2000. 


Verspilling van kracht en mogelijkheden of een 
aanvaardbare PC- emulatie? 


MS-DOS op de Amiga 


Q ua ontwerp zijn Commodores Amiga’s geavanceerdere machines dan 
een eenvoudige PC XT. De oorspronkeiijke iBM gaat al zijn zevende 
levensjaar in en de mogelijkheden van de 8-bits (bus) Intel 8088 micro¬ 
processor zijn eigenlijk al tot op de naad uitgekleed. Daarentegen kan de 16- 
bits Motorola 68000 chip net als de Intel 80286 voor de AT nog wel enkele 
jaren mee, ondanks het feit dat de 32-bits-telgen van dezelfde families al 
voor de lopende band staan te dringen. 

Een ander belangrijk punt is dat de 
geluids-, animatie- en grafische mo¬ 
gelijkheden van de Amiga-chips nog 
altijd superieur zijn aan de PC-machi- 
nes in dezelfde prijsklasse. De enige 
argumenten om de Amiga toch als 
een MS-DOS computer te emuleren 
zijn de overvloed aan compatibele 
programmatuur, het gebruik van MS- 
DOS-netwerken en het gebruik van 
IBM PC hardware- uitbreidingen. 


Dure randapparatuur 

Ondanks het feit dat het aanbod aan 
Amiga software de laatste tijd sterk is 
toegenomen kan de hoeveelheid be¬ 
schikbare programmatuur nog niet in 
de schaduw van de weelde der PC- 
pakketten staan. De keuze en variëteit 
aan opties is zo groot dat er voor elk 
wat wils te krijgen is. Bij de Amiga is 
er wat dezelfde branche betreft hoog¬ 
stens keuze uit twee of drie program¬ 
ma’s. Wie het gezochte niet bij de 
Amiga-pakketten kan vinden zal dus 
de beoogde software zelf moeten 
schrijven of de machine als een XT 
moeten emuleren. 


Randapparatuur voor de Amiga 500 
en 1000 is momenteel nog extreem 
duur. Dit in tegenstelling tot harde 
schijven, diskettestations, modem- 
kaarten en geheugenuitbreidingen 
voor de IBM-PC. Daar komt nog bij dat 
deze beide Amiga’s niet over uitbrei- 
dingsslots beschikken. 

Wie een goedkope harddisk of een 
PC-modem wil is dan met de Sidecar 
redelijk goedkoop uit. Ook zijn de ex- 
pansion-boxes en harde schijven voor 
Amiga-DOS aanzieniijk duurder dan 
de PC-analoge machines. 



Geheel anders is de situatie bij de IBM 
compatibele Amiga 2000. 

Voor deze 68000-8088/80286 MS- 
DOS-hybride zijn tal van redelijk ge¬ 
prijsde PC-uitbreidingen te koop en 
meerdere vrije slots beschikbaar. De 
kopers van de Amiga 2000 hebben 
ongetwijfeld bij de aankoop al enige 
MS-DOS-toepassingen in het achter¬ 
hoofd. Bezitters van het oudere 1000- 
model en de 500-hobbycomputer zijn 
in deze aan duurdere speciale hard- 
ware-uitbreidingen gebonden. 


De Amiga Transformer 

Voor de softwarematige emulatie van 
de Intel 8088 4.77 MHz processor le¬ 
vert Commodore de Amiga Transfor¬ 
mer van Simile Research. Het com¬ 
plete pakket bestaat uit een 3.5 inch 
diskette, het manual en wat plakker¬ 
tjes voor het aanpassen van de toet- 
senbord-layout. Mocht u als Amiga- 
bezitter dit pakket niet standaard mee¬ 
geleverd hebben gekregen dan is het 
voor rond de ƒ 230,- los of in combina¬ 
tie met een Amiga 5.25 inch floppy 
drive te koop. 
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De Amiga Transformer biedt de ge¬ 
bruiker de volgende faciliteiten: 

• Compatibiliteit met de bestaande 

MS-DOS software 

• 640 K aan vrij RAM 

• Een seriële (COM1) en parallelle 

poort 

• Het gebruik van 3.5 en 5.25 inch 
in het 40-sporen (360 K) formaat. 

• Alle DOS- en BlOS-interrupts 

• 80-koloms monochrome video-dis- 
play 

• Direkt lezen en wegschrijven van/- 
naar het videogeheugen 

• Het gebruik van MS-DOS compa¬ 
tibele randapparatuur 

• Een IBM PC XT toetsenbord- 
layout 

Het installeren van de Transformer is 
tamelijk bewerkelijk. Eerst dient de 
gebruiker een extra 256 K (dus in to¬ 
taal 512 K) RAM-uitbreidingskaart in 
een poort te drukken. Vervolgens een 
extra driskdrive aan te sluiten. Bij 
voorkeur een 5.25 inch type daar 3.5 
inch MS-DOS programmatuur slechts 
mondjesmaat verkrijgbaar is. Het ma- 
nual geeft de schema’s voor het aan¬ 
sluiten van de verschillende floppy dri¬ 
ve combinaties. 

Maximaal kunnen drie externe diskdri¬ 
ves als een soort daisy Chain worden 
aangesloten. 

Menu’s 

Na (I) het aansluiten van de drives 
wordt de Amiga met randapparatuur 
normaal aangeschakeld (NB. de 5.25 
inch drives voor de 3.5 inch model¬ 
len!) en opgestart. Na het laden van 
Workbench gaat een kopie van de 
Transformer in de drive en kan het 
ikoon met de muis geactiveerd wor¬ 
den. Het activeren van de Transfor¬ 
mer resulteert in het verwijderen van 
alle Amiga-DOS files uit het RAM en 
het installeren van de software-emu- 
lator. Daarna vraagt het programma 
om substitutie door een MS-DOS 
schijf (versie 2.0 of hoger). Al met al 
heel wat bewerkelijker en tijdrovender 
dan het opstarten van een PC op de 
eigen besturingsschijf. 

De Tranformer disk kent een aantal 
preference-menu’s. Deze zijn via het 
Set ATP refs.-tool toegangkelijk voor 
wijzigingen. Het Disk Menu installeert 
de floppy drives onder elk een eigen 
letter. Op het Video Menu kan de ge¬ 


bruiker de cursorvorm en de display 
modificeren (highiighted, onderstre¬ 
pen, reverse e.d.). Het Color Menu 
doet bij de 1.0 versie nog niets. De 
monitor blijft groen. Bij toekomstige 
Transformer-versies komt daar veran¬ 
dering in. Het Mono Menu staat wel 
toe om behalve groen-zwart een an¬ 
dere kleuren combinaties in te stellen, 
bijvoorbeeld zwart-wit of amber-zwart. 



De geheugen configuratie verloopt via 
het Memory Menu. Daarbij staan de 
volledige MS-DOS 640 K aan vrij 
RAM ter beschikking. Overigens biedt 
de Amiga zelf maximaal 8.5 MB aan 
vrij RAM. Via de functietoesen wordt 
de gewenste hoeveelheid K-RAM in¬ 
gesteld. 

Tot slot is er nog een Attachment 
Menu dat het aanpassen van de key¬ 
board layout en het gebruik van muis, 
digitizer, lichtpen of joystick regelt. 
Verder kan de gebruiker met dit menu 
de hoogte en hardheid van de geluids¬ 
signalen instellen. 


Problemen 

De meeste door ons geprobeerde 
MS-DOS pakketten draaiden met 
Transfomer zonder mankeren op de 
Amiga. Problemen ontstonden door 
de traagheid van de emulator, circa de 
helft van de normale XT- snelheid, en 
de afwijkende keyboard layout. Met 
name memory residente en met hot- 
keys werkende software zorgde af en 
toe voor ongewenste effecten. Het 
werkte soms helemaal niet, slechts 
half of anders dan gepland. Mogelijk 
wordt dit in nieuwere releases verbe¬ 
terd. Ook zullen de aan echte PC-toet- 
senborden gewende gebruikers er 
dikwijls naast slaan. Iemand die op de 
Amiga begint zal hier echter nauwe¬ 
lijks last van ondervinden. 

Het Engelse manual is goed verzorgd. 
Wel vinden wij dat er veel waarschu¬ 
wingen in staan. Een verkeerde han¬ 
deling kan de gebruiker blijkbaar zuur 
opbreken en dat is toch wel een min¬ 
punt in het Amiga-ontwerp. 

De nieuwe Amiga 1020 5.25 inch flop¬ 
py drive werkt snel en vlekkeloos met 


de bestaande MS-DOS diskettes. 
Vermoedelijk zal de winkelprijs van 
deze drive rond de ƒ800,- komen te 
liggen. 

Een probleem vormt nog het minder 
ganbare 3.5 inch floppy format. Over¬ 
spelen via een 5.25 inch drive of se¬ 
riële uitgang is noodzakelijk om de 
MS-DOS programmatuur in de Amiga 
500 of 1000 te laden. 

Het werken met de Transformer heeft 
uiteraard alleen zin op de nieuwe 500- 
en oudere 1000-modellen. Het snel¬ 
heidsverlies wordt daar voor lief ge¬ 
nomen. Bij de 2000 is het draaien on¬ 
der een tranformer behalve een goed¬ 
kope oplossing, pure verspilling van 
de geboden mogelijkheden. 


Sidecar 

Amiga’s zijspan is een wat vormloze 
doos dip op de rechter uitbreidings- 
poort van de Amiga wordt aangeslo¬ 
ten. Qua stijl past de Sidecar niet zo 
bij de Amiga 500 en 1000 terwijl het 
geheel behoorlijk veel bureauruimte in 
beslag neemt. Bovendien vereist de 
gedraaide expansiepoort van de 500 
ook nog een apart ontsierend aanslui- 
tkabeltje. Andere ontwerpers van 
Amiga-randapparatuur hebben dat 
wel beter opgelost. Die werken de 
hoogte in en dan past de combinatie 
systeemkast-expansionbox beter bij 
de monitor. 

Ook geeft de constructie van de ex¬ 
pansiepoort bij de Amiga 1000 te den¬ 
ken. Deze uitbreidingsbus vormt na¬ 
melijk de enige connectie tussen de 
hoofdkaart en de Sidecar. De kans op 
beschadiging door geforceerd aan¬ 
drukken of stoten lijkt ons allerminst 
denkbeeldig. Wat listige verborgen 
schroefverbindingen tussen de sys- 
teemkast en Sidecar hadden meer so¬ 
liditeit gegeven. 



Met het aansluiten van de Sidecar is 
de gebruiker meteen de expansiebus 
kwijt. Die heeft men maar op de zij¬ 
span weggelaten. Gelukkig zitten er 
wel twee spelpoorten op de Sidecar. 
Als PC-kloon stelt de Sidecar niet veel 
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voor. Er zijn slechts een 360 K floppy 
drive, 256 KRAM, een 8088 4,77 MHz 
CPU, IBM-PC compatibele BIOS- 
ROMs en drie uitbreidingsslots (waar¬ 
van een voor de hard disk controller) 
aan boord. Het toetsenbord blijf het 
eigen Amiga keyboard. In combinatie 
met de Amiga, extra RAM en een har¬ 
de schijf nemen de MS-DOS moge¬ 
lijkheden echter sterk toe. 

De harde schijf kan zowel door MS- 
als AmigaDos benut worden en de 
Amiga biedt zelf multitasking via een 
apart MS-DOS venster. 

Het on-board RAM van de Sidecar is 
toegankelijk voor de Amiga zelf. Dat is 
voorlopig weer 512 K extra Amiga- 
RAM en binnenkort gaat Commodore 
zelfs een 2MB RAM Expansion kaart 
voor de Sidecar op de markt brengen. 
Liefhebbers van grote spreadsheets, 
gedetailleerde graphics en animaties 
kunnen dan hun hart ophalen. 


Het systeem kan dus, in tegen¬ 
stelling tot de Tranformer, tege¬ 
lijk Amiga- en MS-DOS program¬ 
matuur draaien. 


De video-output verloopt via de eigen 
Amiga monitor. Doordat Sidecar de 
beeldinformatie rechtstreeks naar het 
128K video-geheugen wegschrijft ont¬ 
staan er geen problemen met lastige 
programma’s zoals Flight-simulator. 
Speciale bijgeleverde koppelings- 
software zorgt er voor dat de gewen¬ 
ste monochrome en/of kleur-scher- 
men in de Amiga-vensters worden ge- 
emuleerd. Het gebruik van een EGA- 
kaart is helaas nog niet mogeiijk. 

De Sidecar kan verder de seriële en 
parallelle poorten van de Amiga aan¬ 
sturen, via een extra Socket rekenen 
met 8087 co-processor en externe 3.5 
of 5.25 inch drives lezen en schrijven. 
Zwakke punten blijven de snelheid en 
het niet geheel IBM PC-compatibele 
Amiga keyboard. De snelheid is ge¬ 
woon 4.77 MHz (circa twee maal snel¬ 
ler dan de software-emulator) en 
daarmee aanzienlijk lager dan de 
kloksnelheid van de Motorola 68000, 
een AT of Turbo XT. Een tweede tijd- 
consumerende bezigheid is het op¬ 
starten. Na het laden van Sidekick en 
Workbench (bij het model 500 al in het 
ROM gebakken) volgt de koppelings- 
software. Al met al heel wat bewer¬ 
kelijker dan het opstarten vanaf een 
MS- DOS schijf op een IBM PC-kloon. 
Over het keyboard hebben wij het al 
bij de Transformer gehad. Nog niet 
over de toch wel stevige prijs van 
ƒ 2400,- (inclusief BTW). Ons inziens 
kan dit bedrag best wat lager. 


XT- en AT-kaarten voor de 

2000 

Het A2088 board of Janus-kaart is 
een in feite een zelfstandige XT- 
hoofdkaart. Een Sidecar op een kaart 
dus. De 8088 microprocessor draait 
onder de standaard 4.77 Mhz klok¬ 
cyclus en een 16KB EPROM bevat 
alle noodzakelijke BlOS-routines. Het 
BIOS is door Commodore behoorlijk 
aangepast om communicatie met de 
Amiga 68000-chip mogelijk te maken. 
De A2088 heeft standaard 512 K aan 
boord plus nog eens een extra 128K 
voor het dual-port RAM. Een SMC 
9268 floppy controller chip en een 
standaard 5.25 inch floppy drive con- 
nector kunnen maximaal twee (een in¬ 
terne en een externe drive) daisy 
chained floppystations aansturen. 

Om alle XT-functies op een enkele 
kaart te kunnen proppen moest Com¬ 
modore eigen (custom)-chips ontwer¬ 
pen. Een speciale multifunction chip 
functioneert daarbij zowel als een 
DMA- en interrupt controller als een 
timer voor alle bussignalen. Andere 
chips "bedriegen" het Sidecar-deel 
van de Amiga 2000. De machine "ge¬ 
looft" dat hij een echte XT is en via het 
dual-port memory worden alle toets¬ 
aanslagen en l/O-opdrachten van de 
Amiga als zijnde een PC XT ge-emu- 
leerd. 

Verder biedt de XT-kaart een extra 
Socket voor de 8087 mathematische 
co-processor. Aan de onderzijde van 
de A2088 PC emulator-kaart zitten 
twee grote connectoren. De grootste 
connector wordt in het Amiga bus- 
connectorslot gestoken. De kleinste in 
het PC-deel van de 2000. 

De A2088 wordt natuurlijk ook softwa¬ 
rematig ondersteund vanuit Kickstart 
en de Intuition werkbank. Via inter- 
rupts trekt de ene computer de aan¬ 
dacht van de andere. Zo heeft de XT- 
kaart een eigen PC-ikoon (naar keuze 
monochroom of in kleur) op de werk¬ 
bank waarin informatie en graphics 
opgetekend worden. 


PCWindows kan ook, met maxi¬ 
maal 7 interrupts, onder multi¬ 
tasking draaien. Zo is het bij- 
voorbeeid mogeiijk om dBASE 
op de XT te iaten sorteren terwiji 
de Amiga zelf voor tekstverwer¬ 
king of het maken van animaties 
vrij blijft. _ 

Stel de A2088 wil een grafiek op de 
Amiga-monitor tekenen. De PC-emu- 
lator zendt dan een interrupt naar de 
Amiga, vervolgens kijkt de 68000 naar 
het video display memory deel van het 


dual-port RAM en gaat dan via een 
EXEC-signaal tot de grafische uitvoer 
over. Het programmaatje PC-Win- 
dows opent voor de XT een eigen 
venster met informatiescherm. 

De prijs van de A2088 Janus-kaart zal 
ongeveer rond de ƒ 1400,- komen te 
liggen. 

‘Snelle kaart’ 

Gelijk met de XT-kaart werd een AT- 
insteekkaart aangekondigd. Wij kon¬ 
den er nog geen hand op leggen, 
maar volgens de specificaties bevat 
dit emulator board: 

° Een 80286 CPU met een kloksnel¬ 
heid van 8MHz 

° 512KB (plus 128 dual-port) aan vrij 
RAM 

°Een 16 KB BIOS-ROM 
° Een floppy-controller voor en 5.25 
1.2 MB en een 3.5 inch 720 KB 
drive 

° Een Socket voor de 80287 mathe¬ 
matische co-processor. 



De prijs van dit A2286 AT-board wordt 
op iets van ƒ 2200,- geraamd. 

Voor de toekomst denkt Commodore 
nog aan een 386 emulator, maar 
daarover staat niets vast. 


Conclusie 

Soft- en harware MS-DOS emulatie 
blijft enigzins behelpen. Wie MS-DOS 
pakketten wil draaien of zijn Amiga via 
de Sidecar wil uitbreiden zal de beper¬ 
kingen moeten slikken. Wie echt MS- 
DOS op de Amiga wil draaien en voor 
een nieuwe aankoop staat kan beter 
direkt in de Amiga 2000 investeren. 
Voor de 500 en 1000 gaat onze voor¬ 
keur naar de mogelijkheden van de 
Sidecar ten opzichte van de veel 
goedkopere software emulator. Side¬ 
car is een doordacht stuk randappa¬ 
ratuur dat echter nog wel voor verbe¬ 
tering vatbaar is. 
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